uses crt;
var n,i,d : integer;
a : array[1..100] of longint;
f : text;
begin
assign(f,'chan.txt');
write('Nhap n :'); readln(n);
d:=0;
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]);
end;
for i:=1 to n do if a[i] mod 2 =0 then write(f,a[i]:3);
close(f);
readln
end.