import Data.List
import Data.Ord
main=do
    [a,b]<-map read.words<$>getLine::IO[Int]
    putStrLn $ f a b
f a b
    | a<0 && b>0 = "Zero"
    | a>0 = "Positive"
    | even (b-a+1) = "Positive"
    | otherwise = "Negative"
