QBASIC PROGRAM TO CALCULATE VOLUME OF CUBE

 CLS
 INPUT “ENTER LENGTH”; L
 V = L ^ 3
 PRINT “VOLUME OF CUBE ”; V
 END

USING SUB

DECLARE SUB VOLUME(L)
 CLS
 INPUT “ENTER LENGTH”; L
 CALL VOLUME(L)
 END
 
 SUB VOLUME(L)
 V = L ^ 3
 PRINT “VOLUME OF CUBE ”; V
 END SUB