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

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

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

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