14. Qbasic program to find the area of rectangle.

14.      Write a program using SUB……END SUB to find the area of rectangle. [A=L*B]

DECLARE SUB AREA (L, B)

CLS

INPUT “ENTER LENGTH”; L

INPUT “ENTER BREADTH”; B

CALL AREA (L, B)

END

SUB AREA (L, B)

A = L * B

PRINT “AREA OF RECTANGLE=”; A

END SUB