ПАСКАЛЬ
Дано натуральное число n. Вывести цифры заданного числа в обратном порядке.

Var   n:integer;BeginWrite('n = ');ReadLn(n);While n > 0 do   Begin   Write(n mod 10);   n:=n div 10   End;End.

var n:integer;beginreadln(n);writeln(ReverseString(n.ToString));end.