main :: IO ()
main = do
  [a, b] <- map read . words <$> getLine
  putStrLn $ solve a b

solve :: Int -> Int -> String
solve a b
  | a < 0 && b < 0
    = if (-1) ^ (b - a + 1) > 0 then "Positive" else "Negative"
  | a > 0 && b > 0
    = "Positive"
  | otherwise
    = "Zero"
