var s: string;
i: integer;
b: boolean;
begin
  readln(s);
  b := true;
  for i := 1 to length(s) div 2 do
    if s[i] <> s[length(s)-i+1] then begin
      b := false;
      break;
    end;
  if b = true then writeln('Палиндром') else writeln('Не палиндром');
end.