Дано натуральное число n. напишите функцию (pascal), определяющую количество нулей среди всех цифр числа n. входные данные задано единственное число n выходные данные необходимо вывести количество нулей среди всех цифр числа n. примеры входные данные 100 выходные данные 2

Function ABC(A:integer):integer;
Begin
result:=0;
While A>0 do
   Begin
   if A mod 10 = 0 then result:=result+1;
   A:=A div 10;
   End;
End;

Var A:integer;

Begin
Read(A);
WriteLn(ABC(A));
End.