Вводится последовательность из 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 = 0 then b:=b + 1; / / проверяем, если очередное число равно нулю, то считаем

end;

write (' количество нулей в последовательности вводимых чисел = ', b); / / выводим ответ

end.