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

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