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

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

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

var a, b: integer;
begin
  writeln('Введите целое пятизначное число:');
  readln(a);
  if (10000<=a) and (a<100000) then // проверка на пятизначность
  begin
    while (a >= 1) do //цикл будет действовать до последнего разряда
      begin
        b := a mod 10; // получаем крайнее правое число
        a := a div 10; // убираем крайнее правое число
        write(b); // выводим на экран крайнее правое число
      end;
  end;
  readln();
end. 

Вывод в консоли:

Введите целое пятизначное число:
65238
83256