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

http://fkn.ktu10.com/?q=node/7341

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

46541

program task13_lesson11;
var a,b:integer;

  begin
       writeln('Enter 5 numbers integer :');
       readln(a);
       while (a mod 10) <> 0 do
         begin
           b:=a mod 10;
           a:=a div 10;
           write(b);
         end;
  readln();
  end.