Imports System
Public Module Module1
Public Sub Main()
DIM NUMERO AS INTEGER
Console.WriteLine("INGRESE UN NUMERO:; ")
NUMERO = CONSOLE.ReadLine()
IF NUMERO > 0 THEN
CONSOLE.WriteLine("EL NUMERO ES POSITIVO")
END IF
IF NUMERO <0 THEN
CONSOLE.WriteLine("EL NUMERO ES NEGATIVO")
IF NUMERO = 0 THEN
CONSOLE.WriteLine("EL NUMERO ES CERO")
End Sub
End Module