play area of rectangle.REM PROGRAM TO DISPLAY AREA OF RECTANGLECLSINPUT “ENTER LENGTH”; LINPUT “ENTER BREADTH”; BA = L * BPRINT “AREA OF RECTANGLE ”; AENDUSING SUB PROCEDUREDECLARE SUB AREA (L, B)CLSINPUT “ENTER LENGTH”; LINPUT “ENTER BREADTH”; BCALL AREA(L, B)ENDSUB AREA (L, B)A = L * BPRINT “AREA OF RECTANGLE ”; AEND SUBUSING FUNCTION PROCEDUREDECLARE FUNCTION AREA (L, B)CLSINPUT “ENTER LENGTH”; LINPUT “ENTER BREADTH”; BAR = AREA(L, B)PRINT “AREA OF RECTANGLE ”; ARENDFUNCTION AREA (L, B)A = L * BAREA = AEND FUNCTION16. Display area of square.REM PROGRAM TO DISPLAY AREA OF SQUARECLSINPUT “ENTER LENGTH”; LA = L ^ 2PRINT “AREA OF SQUARE ”; AENDUSING SUB PROCEDUREDECLARE SUB AREA (L)CLSINPUT “ENTER LENGTH”; LCALL AREA(L)ENDSUB AREA (L)A = L ^ 2PRINT “AREA OF SQUARE”; AEND SUBUSING FUNCTION PROCEDUREDECLARE FUNCTION AREA (L)CLSINPUT “ENTER LENGTH”; LAR = AREA(L)PRINT “AREA OF SQUARE ”; ARENDFUNCTION AREA (L)A = L ^ 2AREA = AEND FUNCTIONI hope this will HELP youIf not then comment me