QBASIC PROGRAM TO FIND CUBE OF A NUMBER

 CLS
 INPUT “ENTER ANY NUMBER”; N
 C = N ^ 3
 PRINT “CUBE OF NUMBER ”; C
 END

USING SUB

DECLARE SUB CUBE(N)
 CLS
 INPUT “ENTER ANY NUMBER”; N
 CALL CUBE(N)
 END
 
 SUB CUBE(N)
 C = N ^ 3
 PRINT “CUBE OF NUMBER ”; C
 END SUB