Var
  s:string;
  i,n:byte;
  p:boolean;
begin
  Write('Введите слово: ');
  Readln(s);
  n:=Length(s);
  p:=true;
  for i:=1 to n div 2 do
    if s[i]s[n-i+1] then
    begin
      p:=false;
      break
    end;
  if p then Writeln('Палиндром')
  else Writeln('Не палиндром')
end.

var

    s: string;

function Invert(s: string): string;

var

    i: integer;

    t: string;

begin

    t := '';

    for i := 1 to length(s) do

        t := s[i] + t;

    

    Invert := t;

end;

begin

    Write('Введите слово: ');

    Readln(s);

    

    s := Trim(s);

    s := Uppercase(s);

    

    if Invert(s) = s then 

        Writeln('Палиндром')

    else 

        Writeln('Не палиндром');

end.