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 walls ="; A
END SUB