uses crt;
var n,i:integer;
a:array[1..100]of integer;
begin
clrscr;
write('n='); readln(n);<br />for i:=1 to n do<br />begin<br />write('a[',i,']='); readln(a[i]);
end;
writeln('cac so chan trong day so la: ');
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.