Imports System

Public Module Module1

    Public Sub Main()

        DIM NUMERO AS INTEGER

        CONSOLE.WriteLine("INGRESE NUMERO ")

        NUMERO = CONSOLE.ReadLine()

        IF NUMERO >0 THEN

                CONSOLE.WriteLine("EL NUMERO ES POCITIVO ")

        END IF 

            IF NUMERO <0 THEN

                CONSOLE.WriteLine("EL NUMERO ES NEGATIVO ")

            ELSE

                CONSOLE.WriteLine("EL NUMERO ES CERO ")

            END IF 

            'IF NUMERO = 0 THEN 

            'CONSOLE.WRITELINE("EL NUMERO ES CERO ")

            'END IF

    End Sub

End Module