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

program u9;var     n: longint;begin      n:=2;      while n>0 do             begin                   write(n mod 10);                   n:=n div 10;             end;end.