main = getLine >>= putStrLn . (¥[a, b] -> solve a b) . map (read :: String -> Int) . words

solve :: Int -> Int -> String
solve a b
    | b < 0 && (b - a) `mod` 2 == 0 = "Negative"
    | a == 0 || b == 0 || (a < 0 && 0 < b) = "Zero"
    | otherwise = "Positive"
