Imports System

Public Module Module1

    Public Sub Main()

        'Area of a Rectangle

        'Declare variables

        Dim Length As Decimal

        Dim Width As Decimal

        Dim Area As Decimal

        'Prompt and enter length and width

        Console.WriteLine("Enter Length")

        Length = Console.Readline()

        Console.WriteLine("Enter Width")

        Width = Console.Readline()

        'Calulate and output area

        Area = Length * Width

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

    End Sub

End Module

'Pseudocode:

'-----------

​

'REAL:Length, Width, Area

'OUTPUT"Enter length"

'INPUT Length

'OUTPUT"Enter Width"

'INPUT Width

'Area <--(Length*Width)

'OUTPUT"The Area is", Area