Area of 4 walls

DECLARE SUB AREA (L,B,H)
CLS
INPUT"ENTER LENGTH";L
INPUT "ENTER BREADTH";B
INPUT "ENTER HEIGHT";H
CALL AREA(L,B,H)
END _____________________________________________
SUB AREA (L,B,H)
A=2*H*(L+B)
PRINT"AREA OF 4 WALL";A
END SUB