Program to find volume of box using FUNCTION

DECLARE FUNCTION VOL(L,B,H)
CLS
INPUT"ENTER LENGTH";L
INPUT"ENTER BREADTH";B
INPUT"ENTER HEIGHT";H
PRINT"VOLUME OF BOX=";VOL(L,B,H)
END

FUNCTION VOL(L,B,H)
V=L*B*H
VOL=V
END FUNCTION