program palindrom;

function ReverseStr (s : string) : string;
var
  i, j, len : integer;
  s2 : string;
begin
  s2 := s;
  len := length (s);
  i := 1;
  j := len;
  while i <= len do begin
    s2 [i] := s [j];
    i := i + 1;
    j := j - 1;
  end;
  ReverseStr := s2;
end;

var
  s, s1, s2 : string;
  len, i, j, p : integer;
begin
  writeln ('Vvedite stroku, razdelennuyu probelami:');
  readln (s);
  repeat
    p := pos (' ', s);
    if p <> 0 then begin
      s1 := Copy (s, 1, p - 1);
      delete (s, 1, p);
      write (s1, ' - ');
      s2 := ReverseStr (s1);
      if (s1 = s2) then
        writeln ('Palindrom')
      else
        writeln ('Ne-a, ne palindrom');
    end;
  until p = 0;
end.