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

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

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

var
  i:integer;
begin
  writeln('Vvedite chislo');
  readln(i);
  while i > 0 do
  begin
    write(i mod 10);
    i:=i div 10;
  end;
  readln();
end.