Ответ:

Free Pascal

var

 a, b : array of integer;

 i, n, m : integer;

begin

 write('Введите размерность массива A :');

 readln(n);

 setlength(a, n);

 writeln('Введите элементы массива А:');

 m:=0;

 for i:=0 to n-1 do begin

   write('a[',i,']=');

   readln(a[i]);

   if a[i] mod 2 = 0 then begin

     inc(m);

     setlength(b, m);

     b[m-1]:=a[i];

   end;

 end;

 writeln('Массив B:');

 for i:=0 to m-1 do write(b[i],' ');

end.