import Control.Applicative

solve a b
  | a > 0 && b > 0 = "Positive"
  | a * b <= 0 = "Zero"
  | otherwise = if (a-b)`mod`2 == 0 then "Negative" else "Positive"

main :: IO()
main = do
  [a, b] <- map (read::String->Int) . words <$> getLine
  putStrLn $ solve a b
