program losimas_degtukais;
  { 104 u‘davinys }
  function degtukai (n : integer) : integer;
    var dvej : integer;
  begin
    dvej :=  1; { iežkome did‘iausio dvejeto laipsnio, neviržijan‡io n }
    while (dvej <= n) do
      dvej := dvej * 2;
    dvej := dvej div 2;
    if (n + 1) mod dvej = 0
     then degtukai := 0
     else degtukai := (n + 1) mod dvej;
  end;

  var n, rez : integer;
begin
  readln (n);
  rez := degtukai (n);
  if rez = 0
     then writeln ('PRALAIMI')
     else writeln (rez)
 end.
