Imports System

Public Module Module1

    Public Sub Main()

        'declaración de variables

        Dim AR, BA, AL As Integer

        'mostrar en pantalla mensaje y guardar variables

        Console.WriteLine("Ingrese la BASE: ")

        BA = Console.ReadLine

        Console.WriteLine("Ingrese la ALTURA: ")

        AL = Console.ReadLine

        'efectuar las operaciones

        AR = ((BA * AL) / 2)

        'mostrar el resultado

        Console.WriteLine("El area del triangulo es: ")

        Console.WriteLine(AR)

        'esperar hasta que el usuario presione la tecla Enter

        Console.ReadLine()

    End Sub

End Module