Найти количество цифр, равных 0, в заданном натуральном числе - Pascal ABC

Формулировка задачи:

Найти количество цифр, равных 0, в заданном натуральном числе.

Решение задачи: «Найти количество цифр, равных 0, в заданном натуральном числе»

Листинг программы

var n,k:integer;
begin
write('Введите натуральное число n=');
readln(n);
k:=0;
if n>0 then //иногда 0 относят к натуральным числам
while n>0 do
 begin
  if n mod 10=0 then k:=k+1;
  n:=n div 10;
 end;
write(k);
end.

Объяснение кода листинга программы

Создаются две переменные: n и k, которые являются целочисленными типами данных.
Выводится сообщение «Введите натуральное число n=» для ввода числа пользователем.
Переменная k инициализируется значением 0.
Если введенное число больше 0, то начинается цикл while, который выполняется до тех пор, пока число не станет равным 0.
Внутри цикла проверяется, делится ли число на 10 без остатка. Если да, то значение переменной k увеличивается на 1.
После завершения внутреннего цикла число делится на 10, и результат присваивается переменной n.
По завершении внешнего цикла выводится значение переменной k.