program DemSoChan;
var
A: array of Integer;
n, i: Integer;
begin
Write('Nhap so phan tu cua day A: ');
Readln(n);
SetLength(A, n);
for i:= 0 to n-1 do
begin
Write('A[', i, ']= ');
Readln(A[i]);
end;
Writeln('Cac so chan trong day A la:');
for i:= 0 to n-1 do
begin
if A[i] mod 2 = 0 then
Write(A[i], ' ');
end;
end.