Imports System

Public Module Module1

    Public Sub Main()

        DIM NUMERO AS INTEGER

        Console.WriteLine("INGRESE UN NÚMERO: ")

        NUMERO = CONSOLE.ReadLine()

        IF NUMERO > 0 THEN 

            CONSOLE.WriteLine("ES POSITIVO")

        ELSE IF NUMERO < 0 THEN

                CONSOLE.WriteLine("ES NEGATIVO")

            ELSE CONSOLE.WriteLine("ES CERO")   

        END IF

    End Sub

End Module