vladmor Var a,b,c,ch,n:integer;
begin
 writeln('введите три числа : ');
readln(a,b,c);

n:=0;
while (a<>0) do begin
ch:=a mod 10;
if ch=0 then n:=n+1;
a:=a div 10;
end;
writeln('нулей в первом числе  = ',n);

n:=0;
while (b<>0) do begin
ch:=b mod 10;
if ch=0 then n:=n+1;
b:=b div 10;
end;
writeln('нулей во втором числе = ',n);

n:=0;
while (c<>0) do begin
ch:=c mod 10;
if ch=0 then n:=n+1;
c:=c div 10;
end;
writeln('нулей в третьем числе = ',n);
end.

антагонист

Verified answer

Если строго по тексту задачи то получится так:

var a,b,c,n:integer;
begin
  readln(a,b,c);
  if a=0 then n:=n+1;
  if b=0 then n:=n+1;
  if c=0 then n:=n+1;
  writeln(n);
end.