Дано произвольное натуральное число. Сколько среди цифр этого числа 5? - Pascal ABC

Дано произвольное натуральное число. Сколько среди цифр этого числа 5?

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

k:=0;
Readln(A);
Repeat
  If A mod 10 = 5 then Inc(k);
  A:=A div 10;
Until A=0;
Writeln(k);

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

Переменная k инициализируется значением 0.
Число A считывается с помощью функции Readln.
Затем начинается цикл Repeat, который будет выполняться до тех пор, пока A не станет равным нулю.
Внутри цикла проверяется, делится ли число A на 10 без остатка на 5. Если да, то значение переменной k увеличивается на 1.
После этого число A делится на 10 с помощью оператора деления / 10, и результат сохраняется в переменной A.
Цикл Repeat повторяется, пока A не станет равным нулю.
Когда A становится равным нулю, выводится значение переменной k с помощью функции Writeln.