program PolindromX; uses crt;
var x:string;
    n:longint;

Procedure Input_data(var n:longint);
Begin
Write(' Введите целое число N: '); Readln(N);
end;

Procedure Polindrom(x:string);
var flag:boolean;
    i,j:integer;
Begin
j:=1;
Flag:=False;
i:=Length(X);

While (i > j) do
      Begin
      if (X[j] <> X[i]) then break
                        else Flag:=True;
      Inc(j);
      Dec(i);
      end;

if Flag then Writeln(' Число ',x,' - палиндром.')
        else Writeln(' Число ',x,' - не палиндром.')
end;

Begin clrscr;
Write('--------------------------------------------------------------------------------');
Input_data(N);
Str(N,X);
Polindrom(X);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.