Вывести все цифры целого числа, начиная с самой правой (разряда единиц) - Pascal

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

Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, вывести все его цифры, начиная с самой правой (разряда единиц).

Решение задачи: «Вывести все цифры целого числа, начиная с самой правой (разряда единиц)»

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

var n:integer;
begin
repeat
write('Введите целое число n>0 n=');
readln(n);
until n>0;
while n>0 do
 begin
  write(n mod 10:2);
  n:=n div 10;
 end;
end.

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

В начале программы объявляется переменная n типа integer (целое число).
Затем используется цикл repeat-until для ввода числа от пользователя.
Когда пользователь вводит число, оно сохраняется в переменной n.
Затем используется цикл while для обработки числа.
Внутри цикла while число n делится на 10 (n := n div 10), и остаток от деления выводится на экран (write(n mod 10:2)).
Цикл while продолжается, пока число n больше 0.
Когда число n становится равным 0, цикл while завершается.
Программа заканчивается.