uses crt;
var n,i,d,s:integer;
a:array[1..100000] of integer;
begin
clrscr;
readln(n);
for i:= 1 to n do
read(a[i]);
write('Day so nguyen co dang: ');
for i:= 1 to n do
write(a[i], ' ');
writeln;
write('Cac so chan: ');
for i:= 1 to n do
begin
if a[i] mod 2 = 0 then write(a[i],' ');
if a[i] > 10 then inc(d);
inc(s,a[i]);
end;
writeln;
writeln('So luong cac so lon hon 10: ', d);
writeln('Tong: ', s);
end.