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

judge::Int->IO()
judge x | x == 0 = putStr "Zero"
        | mod x 2 == 0 = putStr "Positive"
        | otherwise = putStr "Negative"