main = do
  inputs <- map(read::[Char]->Int) <$> words <$> getLine
  let a = head inputs
      b = last inputs
      c = length $ filter(\x->x<0) [a..b]
      d = length $ filter(\x->x/=0) [a..b]
  putStr $ if d < 0 then "Zero" else judge c

judge::Int->[Char]
judge x | mod x 2 == 0 = "Positive"
        | otherwise = "Negative"