program zadacha3_149;
var
i,s,k,v: integer;
begin
s:=0;
k:=0;
for i:=1 to 10 do
writeln('Введите число: ');
read(v);
if (v mod 2=0) then
s:=s+1
else
k:=k+1;
end;
writeln('Четных чисел: ',s);
writeln('Нечетных чисел: ',k);
end.