С клавиатуры вводятся N чисел. Определить кол-во нечетных и вывести на экран. Паскаль

program zz1;

var a, b, n, i:integer; / / задаем переменные целого типа

begin

write (' введите n '); / / вводим с клавиатуры число

read (n);

for i:=1 to n do / / организуем цикл на n повторений

begin

read (a); / / вводим число с клавиатуры

if a mod 2 = 1 / / проверяем, если число при делении на два дает в остатке 1, то

then b:=b + 1; / / считаем его

end;

write (' количество нечетных среди введенных чисел = ', b); / / выводим ответ

end.