Вводится число. Преобразовать его в другое число, цифры которого будут следовать в обратном порядке
Program u9; var n: longint; begin n:=2; while n>0 do begin write(n mod 10); n:=n div 10; end; end.