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

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

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

var i, a, b, c, d, e: integer;
begin
readln(i);
a:= i mod 10;
b:= i div 10 mod 10;
c:= i div 100 mod 10;
d:= i div 1000 mod 10;
e:= i div 10000;
write(a, b, c, d, e);
end.