import Control.Applicative
import Control.Monad
import Data.List

main :: IO ()
main = do
    [a, b] <- fmap read . words <$> getLine :: IO [Int]
    let f c d
            | c >  0           = 1
            | c <= 0 && 0 <= d = 0
            | odd n            = -1
            | otherwise        = 1
          where
            n = d - c + 1
    case f a b of
        0 -> putStrLn "Zero"
        1 -> putStrLn "Positive"
        (-1) -> putStrLn "Negative"