import Control.Applicative

main = do
  [a,b] <- map read.words <$> getLine :: IO [Int]
  case (a,b) of
    (a,b) | a*b < 0 -> putStrLn "Zero"
          | a > 0 && b > 0 -> putStrLn "Positive"
          | odd (min b 0 - a) -> putStrLn "Positive"
          | otherwise -> putStrLn "Negative"
