Array54

## //три дня решал задачу, никуда не смотрел!
uses PT4;
Task('Array54');
var n := ReadInteger;
var A := ReadArrInteger(n);

var (B,len_b,cnt) := (|0|,0,0);
//
for var i := 0 to A.High do
  if (A[i] mod 2 = 0) then
    begin
      len_b += 1;
      SetLength(B,len_b);
      B[cnt] := A[i];
      cnt += 1;
    end;
//
Println(len_b);
Print(B);