Дано натуральное число n. требуется определить количество нулей среди цифр данного числа.

Var
  n:longint;
  k:integer;
begin
  Write('Введите натуральное число: '); Read(n);
  k:=0;
  while n>0 do begin
    if (n mod 10)=0 then Inc(k);
    n:=n div 10
  end;
  Writeln('Количество нулей в числе равно ',k)
end.

Тестовое решение:
Введите натуральное число: 15035003
Количество нулей в числе равно 3