Imports System

Public Module Module1

    Function Triangle(base As Integer, height As Integer)

        Dim area As Integer

        area = (base / 2) * height

        Return area

    End Function

    Sub Main(args As String())

        Console.WriteLine("Hello World!")

        Dim area, base, height As Integer

        Console.WriteLine("enter base")

        base = Console.ReadLine()

        Console.WriteLine("enter height")

        height = Console.ReadLine()

        area = Triangle(base, height)

        Console.WriteLine("The area is " & area)

    End Sub

End Module