main = getLine
    >>= putStrLn . solve . map read . words

solve :: [Int] -> String
solve [a, b]
    | a <= 0 && b >= 0 = "Zero"
    | a > 0 = "Positive"
    | even (b - a) = "Negative"
    | otherwise = "Positive"
