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

Количество чисел вводимых с клавиатуры равно N. Определить количество чисел кратных 2.

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

k:=0;
for i:=1 to n do
 begin
   readln(a);
   if a mod 2=0 then k:=k+1;
 end;
write('k=',k);

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

Переменная k инициализируется значением 0.
Запускается цикл for, который выполняется от 1 до n (n - это переменная, которую мы пока не знаем, но она будет определена позже).
На каждой итерации цикла считывается значение переменной a с помощью функции readln.
Затем проверяется, делится ли значение a на 2 без остатка (a mod 2=0), если да, то значение переменной k увеличивается на 1.
После завершения цикла выводится значение переменной k с помощью функции write.
Код не содержит вложенных списков.