var n,a,k1,k2,i:integer;

begin

write('Введите количество вводимых чисел: ');

readln(n);

for i:=1 to n do

begin

write('Введите ',i,' числo: ');

readln(a);

if a mod 2 = 0 then k2:=k2+1

else k1:=k1+1

end;

writeln ('Количество четных чисел: ',k2);

writeln ('Количество нечетных чисел: ',k1)

end.