My journey with JM

QBASIC PROGRAM TO FIND VOLUME OF BOX USING FUNCTION.

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

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