PROCEDURE getArea(ByVal width, ByVal length) area = width * lengthEND PROCEDUREwidth = 10length = 20getArea(width,length)PRINT("Rectangle Area: " + area)