Задача 13 Урок 11

Задача 13 Урок 11

Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим:
?
1

46541

(используйте опеции div и mod, подразумевается решение через цикл )

program Variant2;
var i, n: integer;
begin
  readln(n);

  for i:= 1 to 5 do
  begin
    write(n mod 10, '');
    n := n div 10;
  end;
end.