Определить номер цифры 3 в заданном числе, считая от конца числа - PascalABC.NET

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

Дано натуральное число. Определить номер цифры 3 в нем, считая от конца числа. Если такой цифры нет, ответом должно быть число 0, если таких цифр в числе несколько — должен быть определен номер самой правой из них.

Решение задачи: «Определить номер цифры 3 в заданном числе, считая от конца числа»

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

WriteLn('Введите число N: '); ReadLn(N);
k:=0;
i:=0;
repeat
  inc(i);
  if N mod 10=3 then begin k:=i; break; end;
  N := N div 10
until N=0;
WriteLn(k);

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

Пользователю предлагается ввести число N.
Переменная k инициализируется значением 0.
Переменная i инициализируется значением 0.
В цикле repeat-until происходит деление числа N на 10 и проверка остатка от деления на 3. Если остаток от деления равен 3, то значение переменной i присваивается значению переменной k и цикл прерывается.
После окончания цикла выводится значение переменной k.