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

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

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

program lesson11_13;
var
    a: integer;
begin
    writeln('enter a five-digit number');
    readln(a);
    while a > 0 do
    begin
        write(a mod 10);
        a := a div 10;
    end;
    readln()
end.