Imports System
Public Module Module1
Dim length As Decimal = 0 'this creates a variable called length
Dim width As Decimal=0 'this creates one called width
Dim perimeter As Decimal= 0 'this creates one called perimeter
Public Sub Main()
Console.WriteLine("please enter length")
length = Console.ReadLine() 'this make the computer read the line
Console.WriteLine("please enter width")
width = Console.ReadLine()
Console.WriteLine("The length is" & length)
Console.WriteLine("The width is" & width)
perimeter = length * length + width * width 'this is the calculation for perimeter
Console.writeline(perimeter)
End Sub
End Module
