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")

        END IF

        IF NUMERO = 0 THEN

            CONSOLE.WriteLine("EL NUMERO ES CERO")

        END IF

    End Sub

End Module