uses crt;
var i, n, a, s, d : integer;
f1, f2 : text;
begin
clrscr;
assign(f1,'IN.TXT'); reset(f1);
assign(f2,'OUT.TXT'); rewrite(f2);
readln(f1, n); s := 0; d := 0;
for i := 1 to n do begin read(f1, a);
if a mod 2 = 0 then begin s := s + a;
d := d + 1; end; end;
writeln(f2, d);
writeln(f2, s);
close(f1); close(f2);
readln
end.