Imports System

Public Module Module1

    Public Sub Main()

        'EJERCICIO 

        DIM RESPUESTA AS INTEGER

        DIM N1, N2, SUMA AS INTEGER

        DIM RESTA AS INTEGER

        DIM MULTIPLICACION AS INTEGER

        DIM DIVISION AS INTEGER

        CONSOLE.WriteLine("MENU DE OPERACIONES BASICAS")

        CONSOLE.WriteLine("1. SUMA 2. RESTA 3. MULTIPLICACION 4. DIVISION 5. POTENCIA")

        RESPUESTA = CONSOLE.ReadLine()

        IF RESPUESTA = 1 THEN

            CONSOLE.WriteLine("INGRESE NUMERO: ")

            N1 = CONSOLE.ReadLine()

            N2 = CONSOLE.ReadLine()

            SUMA = N1 + N2

            CONSOLE.WriteLine("EL RESULTADO DE LA SUMA ES: " &SUMA)

        END IF

        IF RESPUESTA = 2 THEN

            CONSOLE.WriteLine("INGRESE NUMERO: ")

            N1 = CONSOLE.ReadLine()

            N2 = CONSOLE.ReadLine()

            RESTA = N1 - N2

            CONSOLE.WriteLine("EL RESULTADO DE LA RESTA ES: " &RESTA)

        END IF

        IF RESPUESTA = 3 THEN

            CONSOLE.WriteLine("INGRESE NUMERO: ")

            N1 = CONSOLE.ReadLine()

            N2 = CONSOLE.ReadLine()

            MULTIPLICACION = N1 * N2

            CONSOLE.WriteLine("EL RESULTADO DE LA MULTIPLICACION ES: " &MULTIPLICACION)

        END IF

        IF RESPUESTA = 4 THEN

            CONSOLE.WriteLine("INGRESE NUMERO: ")

            N1 = CONSOLE.ReadLine()

            N2 = CONSOLE.ReadLine()

            DIVISION = N1 / N2

            CONSOLE.WriteLine(" EL RESULTADO DE LA DIVISION ES: " &DIVISION)

        END IF

    End Sub

End Module