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

Урок 11

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

46541

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

var i: integer;

begin
i := 14564;

  while (i <> 0) do
   begin
      write(i mod 10);
      i := i div 10;
   end;

end.

КОНСОЛЬ

46541