Программа

Program Pilshikov_5_55 (input,output);
{ Определить число, получаемое
  выписыванием в обратном порядке
  цифр заданного натурального. }
Var N,NewN:integer;
BEGIN
  Write('Введите число ');
  Readln(N);
  NewN:=0;
  while N>0 do Begin
                 NewN:=NewN*10+N mod 10;
                 N:=N div 10
               End;
  Writeln('Новове число  ',NewN)
END.