var n,i,k,a:integer;
begin
writeln('введите количество чисел');
readln(n);
a:=0;
for i:=1 to n do begin
writeln('введите ',i:1,'-е число');
readln(a);
if a mod 2<>0 then k:=k+1;
end;
writeln('кол-во нечетных чисел ',k);
readln;
end.