Задание 13 Урок 11

Задание 13 Урок 11:

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

46541

(используйте опеции div и mod, подразумевается решение через цикл )

var a, b, c, d, e, md, dv, i: integer;
begin
  write('Введите целое 5-ти значное число: ');
  readln(a);

  i := 0;
  while (a div 10 <> 0) do
    begin
      i := i + 1;
      md := a mod 10;
      dv := a div 10;
      a := dv;
      if (i = 1) then
        e := md
      else if (i = 2) then
        d := md
      else if (i = 3) then
        c := md
      else
        b := md;
    end;

  writeln('---------------------------------------');
  writeln('Введённое число наоборот: ', e, d, c, b, a);
  readln();
end.

Консоль:

Введите целое 5-ти значное число: 45678
---------------------------------------
Введённое число наоборот: 87654