program mang;
uses crt;
var i,d:longint;
a:array [1..20] of longint;
begin
for i:= 1 to 20 do read(a[i]);
for i:= 1 to 19 write(a[i],' ');
writeln(a[20]);
writeln('Cac so chan trong mang la : ');
for i:= 1 to 20 do if a[i] mod 2 = 0 then
begin
inc(d);
write(a[i]);
end;
readln;
end.