Дано натуральное число N. Напишите функцию (Pascal), определяющую количество нулей среди всех цифр числа N.

Входные данные
Задано единственное число N

Выходные данные
Необходимо вывести количество нулей среди всех цифр числа N.

Примеры
входные данные
100
выходные данные
2

Ни малейшего понятия не имею о том, что именно Вы проходили

function ABC(A:integer):integer;Beginresult:=0;While A>0 do   Begin   if A mod 10 = 0 then result:=result+1;   A:=A div 10;   End;End;Var A:integer;BeginRead(A);WriteLn(ABC(A));End.