Найти количество нулей в десятичной записи целого неотрицательного числа n (без использования строк) - Pascal

Найти количество нулей в десятичной записи целого неотрицательного числа n (без использования строк).

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

var n, k: Integer;
begin
  Read(n);
  repeat
    if n mod 10=0 then Inc(k);
    n:=n div 10;
  until n=0;
  WriteLn(k);
end.

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

В начале программы объявляются две переменные: n и k типа Integer. Переменная n используется для хранения входного числа, а переменная k используется для подсчета количества нулей.
Далее, с помощью функции Read(n), считывается входное число и сохраняется в переменной n.
Затем, в цикле repeat-until, происходит деление числа n на 10 (n div 10) и остаток от деления (n mod 10) проверяется на равенство нулю.
Если остаток от деления равен нулю, то значение переменной k увеличивается на единицу (Inc(k)).
Цикл продолжается до тех пор, пока число n не станет равным нулю.
После окончания цикла, выводится значение переменной k с помощью функции WriteLn(k).
Значение переменной k представляет собой количество нулей в десятичной записи числа n.