Определить, сколько нечетных среди n введенных - Pascal ABC

Формулировка задачи:

Не могу решить задачу "Сколько нечетных среди n введенных". Вот сама задача: [текст на картинках не допускается]

Решение задачи: «Определить, сколько нечетных среди n введенных»

Листинг программы

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

Объяснение кода листинга программы

В программе объявлены три переменные: i, n и a, которые будут использоваться для хранения чисел, введенных пользователем.
Программа запрашивает у пользователя количество чисел, которые он хочет ввести.
Затем программа перебирает все введенные числа от 1 до n.
Для каждого числа проверяется, является ли оно нечетным. Если число нечетное, то переменная k увеличивается на единицу.
По окончании ввода всех чисел программа выводит общее количество нечетных чисел среди введенных.