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

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

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

Решение:

var i,a:integer;
begin
  readln(a);
  for i:=1 to 5 do
  begin
    write(a mod 10);
    a := a div 10;
  end;
  readln();
end.

Консоль:

54321
12345