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
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
Post a Comment