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

http://fkn.ktu10.com/?q=node/7341
Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим:
46541

var
n,m: longint;
begin
writeln ('введи-ка число');
readln(n);
m := 0;
while n>0 do begin
m := m*10 + n mod 10;
n := n div 10;
end;
writeln(m);
end.