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

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

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

program u11z13;
var
a,b:integer;

begin

 writeln('vvedite chislo');
 readln(a);
 while (a <> 0) do
 begin
  b:= a mod 10;
  a:= a div 10;
   write(b);
  end;
  readln();
end.