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

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

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

program U11Z13;
var a: integer;
begin
    writeln('vvedite pyatiznachnoe chislo');
    readln(a);
    while (a>0) do
          begin
               write(a mod 10);
               a:= a div 10;
          end;
    readln();
end.