Imports System.Collections.Generic
Imports System.Console
Imports System.Math  
Module Program
 	Sub Main()
        Dim input() As String = Console.ReadLine().Split(" ")
        Dim a As Integer = input(0)
        Dim b As Integer = input(1)
        Dim n As Integer = b - a + 1
        If (a<=0 and b>=0) or a=0 or b=0 Then
            Console.WriteLine("Zero")
            Exit Sub
        End If 
        If a>0 or n Mod 2 = 0 Then
            Console.WriteLine("Positive")
            Exit Sub
        End If 
        Console.WriteLine("Negative")
    End Sub
End Module
