QBASIC PROGRAM TO FIND VOLUME OF CUBOID

CLS
 INPUT “ENTER LENGTH OF CUBOID”; L
 INPUT “ENTER BREADTH OF CUBOID”; B
 INPUT “ENTER HEIGHT OF CUBOID”; H
 V = L * B * H
 PRINT “VOLUME OF CUBOID ”; V
 END

USING SUB

DECLARE SUB VOL(L,B,H)
 CLS
 INPUT “ENTER LENGTH OF CUBOID”; L
 INPUT “ENTER BREADTH OF CUBOID”; B
 INPUT “ENTER HEIGHT OF CUBOID”; H
 CALL VOL(L,B,H)
 END
 
 SUB VOL(L,B,H)
 V = L * B * H
 PRINT “VOLUME OF CUBOID ”; V
 END SUB