Вводится n целых чисел. Найти сколько чисел будет чётными. Делать через цикл For и с дружественным интерфейсом

program zz1;

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

begin

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

read (n);

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

begin

writeln (' введите ', i,' - ое число ');

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

if a mod 2 = 0 then b : = b + 1; / / проверяем, если число делится на два без остатка, то считаем его

end;

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

end.