Imports System
Public Module Module1
Public Sub Main()
Dim n1 as integer
n1=Console.ReadLine()
Dim n2 as integer
n2=Console.ReadLine()
if n1>0 and n2>0
Console.WriteLine("Both are larger than 0")
elseif n1<0 and n2<0
Console.WriteLine("Both are smaller than 0")
end if
if n1>0 and n2<0
Console.WriteLine("Only the first number is bigger that 0")
elseif n2>0 and n1<0
Console.WriteLine("Only the second number is bigger than 0")
End Sub
End Module