Imports System

Public Module Module1

    Public Sub Main()

        'PROGRAMA CALCULO DE AREAS

        'NOVENO 2

        'REALIZADO POR KRISTEL

        DIM L, B, A, R AS INTEGER

        DIM CUADRADO, RECTANGULO AS INTEGER

        DIM TRIANGULO, CIRCULO AS DOUBLE

        DIM RESPUESTA AS INTEGER

        CONSOLE.WriteLine("QUE CALCULO DESEA REALIZAR: ")

        CONSOLE.WriteLine("1. CUADRADO 2. RECTANGULO 3. TRIANGULO 4. CIRCULO")

        RESPUESTA = CONSOLE.Readline()

        IF RESPUESTA=1 THEN

            CONSOLE.WriteLine("INGRESE LADO:" )

            L = CONSOLE.ReadLine()

            CUADRADO = L^2  

            CONSOLE.WriteLine("EL AREA DEL CUADRADO ES: " &CUADRADO)

        END IF

        IF RESPUESTA = 2 THEN 

            CONSOLE.WriteLine("INGRESE BASE: ")

            B = CONSOLE.ReadLine()

            CONSOLE.WriteLine("INGRESE ALTURA: ")

            A = CONSOLE.ReadLine()

            RECTANGULO = B*A

            CONSOLE.WriteLine("EL AREA DEL RECTANGULO ES: "&RECTANGULO)

        END IF 

        IF RESPUESTA  = 3 THEN 

            CONSOLE.WriteLine("INGRESE BASE: ")

            B = CONSOLE.ReadLine()

            CONSOLE.WriteLine("INGRESE ALTURA: ")

            A = CONSOLE.ReadLine()

            TRIANGULO = B*A/2

            CONSOLE.WriteLine("EL AREA DEL TRIANGULO ES: "&TRIANGULO)

        END IF

        IF RESPUESTA = 4 THEN

            CONSOLE.WriteLine("INGRESE CIRCUNFERENCIA: ")

            A = CONSOLE.ReadLine()

            CONSOLE.WriteLine("INGRESE RADIO: ")

            R = CONSOLE.ReadLine()

            CIRCULO = 3.1416*R^2

            CONSOLE.WriteLine("EL AREA DEL CIRCULO ES: "&CIRCULO)

        END IF

    End Sub 

End Module