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

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

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

46541

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

var a: integer;
begin
  write('Введите целое пятизначное число: ');
  readln(a);
  while a > 9 do
   begin
    write(a mod 10);
    a := a div 10;
   end;
  writeln(a);
  readln();
end.