Imports System

Public Module Module1

    Public Sub Main()

        'PROGRAMA QUE MUESTRA MENU DE OPCIONES

        DIM OPCION AS INTEGER

        DIM EDAD, AÑO AS INTEGER

        DIM N1, N2 AS INTEGER

        'ESCRIBIR MENU EN PANTALLA 

        CONSOLE.WriteLine("MENU DE OPCIONES")

        CONSOLE.WriteLine("1. MENSAJE DE BIENVENIDA")

        CONSOLE.WriteLine(" 2. CÁLCULO DE EDAD")

        CONSOLE.WriteLine("3.ORDENA NÚMEROS")

        CONSOLE.WriteLine("INGRESE OPCION:")

        OPCION= CONSOLE.ReadLine()

        SELECT OPCION

        CASE 1

            CONSOLE .WriteLine("BIENVENIDO")

        CASE 2

            CONSOLE.WriteLine("INGRESE AÑO DE NACIMIENTO:")

            AÑO = CONSOLE.ReadLine()

            EDAD= 2024 - AÑO 

            CONSOLE.WriteLine("LA EDAD ES:"&EDAD)

        CASE 3

            CONSOLE.WriteLine("INGRESE DOS NÚMEROS")

            N1 = CONSOLE.ReadLine()

            N2 = CONSOLE.ReadLine()

            IF N1 > N2 THEN

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

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

            ELSE

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

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

            END IF 

        END SELECT

    End Sub

End Module