uses crt;
var f:text; i,c,l:longint; a:array[1..20]of longint;
begin
clrscr;
assign(f,'SN.TXT');reset(f);
for i:=1 to 20 do
begin
read(f,a[i]);
if a[i] mod 2=0 then inc(c) else inc(l);
end;
close(f);
assign(f,'TONG.TXT');rewrite(f);
writeln(c,' ',l);
close(f);
end.