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

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

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

var a, b : integer;

begin
  write('Enter a five-digit integer : ');
  readln(a);
  while ((a mod 10) <> 0) do
    begin
      b:= a mod 10;
      a:= a div 10;
      write(b);
  end;
  readln();
end.