Function Main
Declare Real base
Declare Real height
Declare Real Area
Declare Real Perimeter
Output "Enter value of base:"
Input base
Output "Enter height: "
Input height
Assign Area = (base * height)
Output "The Area is: " &Area
Assign Perimeter = (base + height) * 2
Output "The Perimeter is: " &Perimeter
End