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

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

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

var a,b:integer;
  begin
    writeln('Vvedite chiso iz 5 znakov: ');
    readln(a);
    while (a>0) do
      begin
        b:=a mod 10;
        write (b);
        a:=a div 10;
      end;
    readln();
  end.              

Вывод консоли:
Vvedite chiso iz 5 znakov:
12345
54321