uses crt;
var b: array[1..100] of integer;
i,n: integer;
begin
write ('nhap so luong pt: '); readln (n);
for i:=1 to n do readln (b[i]);
write ('day vua nhap: ');
for i:=1 to n do write (b[i],' ');
write ('cac so chan: ');
for i:=1 to n do if b[i] mod 2=0 then write (b[i],' ');
readln;
end.