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

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.