program Massiv; 
var 
 a: array [1..10] of integer; 
 b: array [1..10] of integer; 
 N:integer; 
 j:integer; // переменная для подсчета размера нового массива 
 i:integer; // счетчик в цикле 
begin // ввод размера масива 
 writeln('Введите N (N<=10)'); 
 readln(N); writeln('Значения массива А'); // ввод значений масива 
 for i:=1 to n do 
  begin 
   write('a[',i,']=');
   readln(A[i]); 
  end; // решение 
 j:=0; // начальное значение размера нового массива 
 for i:=1 to n do 
  begin // цикл для обхода массива 
   if (a[i] mod 2)=0 then // условие для формирования нового массива     
    begin 
     inc(j); // увеличение размера формирующегося массива 
     b[j]:=a[i]; // присвоение значения элементу массива b 
    end; 
  end; // вывод результата 
 Writeln('Ответ'); 
 Writeln('Размер полученного массива ',j); 
 Write('B[]: '); 
 for i:=1 to j do Write(B[i],' '); 
end.