Программа

Program Pilshikov_5_56 (input,output);
{ Определить, является ли заданное
  натуральное палиндромом. }
Var N,NewN,Buf:integer;
BEGIN
  Write('Введите число ');
  Readln(N);
  NewN:=0;
  Buf:=N;
  while Buf>0 do Begin
                   NewN:=NewN*10+Buf mod 10;
                   Buf:=Buf div 10
                 End;
  if N=NewN then Writeln('Заданное число является полиндромом ')
            else Writeln('Заданное число не является полиндромом ')
END.