В последовательности четырех целых чисел, заданных с клавиатуры, найти количество нулей.

program raf105;

var i,a,nul: integer;

begin

writeln('Введите 4 числа по очереди:');

for i:=1 to 4 do

begin

 readln(a);

 if a = 0

   then nul:= nul+1;

end;

writeln('Количество нулей: ',nul);

end.