var

i, n: integer;

a: array [1..1000] of integer;

b: array [1..1000] of integer;

begin

write('Введите размер массива (макс. 1000): ');

readln(n);

writeln();

for i := 1 to n do

begin

writeln('Введите эл. массива A[', i, ']');

readln(a[i]);

if a[i] mod 2 = 0 then b[i] := a[i]

end;

writeln();

writeln('Эл. массива A');

for i := 1 to n do

write(a[i], ' ');

writeln();

writeln();

writeln('Эл. массива B (чётные)');

for i := 1 to n do

if (b[i] mod 2 = 0) and (b[i] 0) then write(b[i], ' ')

end.