Imports System

Public Module Module1

    Public Sub Main()

        Dim Length as integer

        Dim Width as integer

        Dim Area as integer

        Console.Writeline("Enter the length")

        Length = Console.Readline ()

        Console.WriteLine("Enter another width")

        Width = Console.Readline ()

        Area =  Length * Width/2

        Console.WriteLine("The Answer is " & Area & "m Squared")

    End Sub

End Module