Imports System

Public Module Module1

    Public Sub Main()

        ' Area of Rectangle

        ' Declare variables

        Dim Length, Width, Area As Decimal 

        'Prompt and ennter length and width

        Console.WriteLine("Enter Length of Rectangle (cm)")

        Length = Console.ReadLine()

        Console.WriteLine("Enter width of rectangle (cm)")

        Width = Console.ReadLine()

        ' Calculate the area

        Area = Length * Width 

        ' Output the area

        Console.WriteLine("The area of the rectangle is " & Area & " sq cm")

​

    End Sub

End Module

'PSEUDOCODE

'REAL: Length, Width, Area

'OUTPUT "Enter length of rectangle (cm)"

'INPUT Length

'OUTPUT "Enter width of rectangle (cm)"

'INPUT Width

'Area<-- Length * Width 

'OUTPUT " The area of the rectangle is", Area, "sq cm"