Area of four walls using sub.

Area of four walls using sub procedure.

DECLARE SUB AREA(L,B,H)
CLS
INPUT"ENTER LENGTH";L
INPUT"ENTER BREADTH";B
INPUT"ENTER HEIGHT";H
END

SUB AREA(L,B,H)
A=2*H*(L+B)
PRINT"AREA OF FOUR WALL";A
END SUB