1. WAP to find the area of rectangle. CLS INPUT "ENTER LENGTH" ; L INPUT "ENTER BREADTH" ; B AREA = L * B PRINT "AREA OF RECTANGLE IS =" ; AREA END 2.WAP to display the area of circle. CLS INPUT "ENTER RADIUS" ; R A = 22/7 * R ^ 2 PRINT "AREA IF CIRCLE" ; A END 3. WAP to find the area of square. CLS INPUT "ENTER LENGTH"; L A = L ^ 2 PRINT "AREA OF SQUARE =" ; A END 4. WAP to find the area of triangle. CLS INPUT "ENTER BASE" ; B INPUT "ENTER HEIGHT"; H A = 1/2 * B * H PRINT "AREA OF TRIANGLE="; A END 5. WAP to find the volume of cylinder. CLS INPUT "ENTER RADIUS" ; R INPUT "ENTER HEIGHT" ; H V = 22/7 * R ^ 2 * H PRINT "VOLUME OF CYLINDER=" ; V END 6. WAP to input percentage and display pass or fail. CLS INPUT "ENTER PERCENTAGE"; P IF P > = 40 THEN PRINT "PASS" ELSE PRINT "FAIL" END