main = do
    [a,b] <- map read . words <$> getLine :: IO [Int]
    let ans | a <= 0 && b >= 0 = "Zero"
            | a > 0 = "Positive"
            | b < 0 = if even (b - a - 1) then "Positive" else "Negative"
    putStrLn ans