main = do
  inputs <- map(read::[Char]->Int) <$> words <$> getLine
  let a = head inputs
      b = last inputs
  putStr $ judge a b

judge::Int->Int->String
judge x y | x <= 0 && y >= 0 = "Zero"
          | x > 0 && y > 0 = "Positive"
          | a /= 0 = "Negative"
          | a == 0 = "Positive"
          | otherwise = "fail"
            where a = mod 2 $ abs x - abs y
