var
odd,even,i: integer;
begin
odd:=0;
even:=0;
for i:=1 to 10 do
begin
readln(a);
if (a mod 2=0) then inc(odd)
else inc(even);
end;
writeln('odd: ',odd,'  even: ',even);
end.

Inc(x) is the same as x:=x+1