main = do
    [a,b] <- return . map (read::String->Int) . words =<< getLine
    let chk
	 | a*b <= 0  = "Zero"
	 | 0 < a     = "Positive"
	 | otherwise = let
			sz = b-a+1
		       in
			if sz`mod`2/=0
			    then "Negative"
			    else "Positive"
    putStrLn chk