program raf105;
var i,a,nul: integer;
begin
writeln('Введите 4 числа по очереди:');
for i:=1 to 4 do
readln(a);
if a = 0
then nul:= nul+1;
end;
writeln('Количество нулей: ',nul);
end.
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.
PascalABC 3.4.2