Запишите целое неотрицательное число n в обратном порядке.
Входные даные
Одно целое неотрицательное 64-х разрядное число.
Выходные даные
Выведите число в обратном порядке.
Решение
var x:uint64;
begin
read(x);
if x < 10 then
write(x)
else
while x > 0 do
begin
write(x mod 10);
x := x div 10;
end;
end.