Дано натуральное число n. найдите число, получающееся, если записать цифры числа n в обратном порядке.

Var N:longint;
Begin
Write('N = ');ReadLn(N);
While N <> 0 do
   Begin
   Write(N mod 10);
   N:=N div 10;
   End;
End.