var

 a, s: integer;

begin

 write('Введите число: '); 

 readln(a);

 s:= 0;

 while a > 0 do

 begin

  if (a mod 10 = 0) then

   s:= s + 1;

  a:= a div 10;

 end;

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

end.