Сколько раз данная цифра встречается в числе? Паскаль. Через while

Предыдущий
вопрос Следующий
вопрос

Пример кода на Pascal, который считает количество вхождений цифры в числе:

program CountDigits;
var
number, digit, count: integer;
begin
writeln('Введите число: ');
readln(number);
writeln('Введите цифру: ');
readln(digit);
count := 0;
while number > 0 do
begin
if number mod 10 = digit then
count := count + 1;
number := number div 10;
end;
writeln('Цифра ', digit, ' встречается ', count, ' раз(а) в числе.');
end.

Этот код считывает число и цифру с клавиатуры, затем с помощью цикла while перебирает все цифры числа и увеличивает счетчик, если текущая цифра равна введенной. По завершению цикла выводится результат подсчета.