Imports System

'REALIZADO POR: JOSE ORTIZ

'EJERCICIO QUE SOLICITE 3 NUMEROS E INDICQUE CUAL ES EL MAYOR Y EL MENOR

Public Module Module1

    Public Sub Main()

        DIM N1, N2, N3 AS DOUBLE

        Console.WriteLine("ingrese 3 numeros")

        N1 = CONSOLE.ReadLine()

        N2 = CONSOLE.ReadLine()

        N3 = CONSOLE.ReadLine()

        IF N1>N2 AND N1>N3 THEN

            CONSOLE.WriteLine("EL MAYOR ES: " &N1)

        END IF

        IF N1<N2 AND N1<N3 THEN

            CONSOLE.WriteLine("EL MENOR ES: " &N1)

        END IF 

        IF N2>N1 AND N2>N3 THEN

            CONSOLE.WriteLine("EL MAYOR ES: " &N2)

        END IF

        IF N2<N1 AND N2<N3 THEN

            CONSOLE.WriteLine("EL MENOR ES: " &N2)

        END IF 

        IF N3>N1 AND N3>N2 THEN

            CONSOLE.WriteLine("EL MAYOR ES: " &N3)

        END IF

        IF N3<N1 AND N3<N2 THEN

            CONSOLE.WriteLine("EL MENOR ES; " &N3)

        END IF

    End Sub

End Module