WAP TO FIND THE AREA OF RECTANGLE USING SUB...END SUB

 DECLARE SUB AREA(L,B)

Cls

Input "ENTER THE LENGTH "; L

Input "ENTER THE BREADTH"; B

Call AREA(L, B)

END

Sub AREA (L, B)

    A = L * B

    Print "THE AREA OF RECTANGE"; A

End Sub