Var
n, k, a, i: integer;

begin
write('Введите кол-во чисел: ');
readln(n);
for i:=1 to n do
 begin
 read(a);
 if ((a mod 2) = 1) then inc(k);
end;
write(k);
end.


С использованием оператора repeat:

var
n, k, a, i: integer;
begin
write('Введите кол-во чисел: ');
readln(n);
repeat
 read(a);
 if ((a mod 2) = 1) then inc(k);
 inc(i);
 until i=n;
write(k);
end.

 n - кол-во чисел, k - кол-во нечётных чисел, a - число
Все числа вводятся через пробел