Дано натуральное число 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.