Урок №11 Задание 13

Урок №11 Задание 13

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

program Pr11_13;
var a,i:integer;
begin
i:=1;
writeln('Введите число: ');
readln(a);
while i<=5 do
begin
  write(a mod 10);
  a:=a div 10;
  i:=i+1;
end;
readln();
end.         

Консоль:

Введите число:
78941
14987