QBASIC PROGRAM TO CALCULATE CUBE ROOT OF A NUMBER

 CLS
 INPUT “ENTER ANY NUMBER”; N
 C = N ^ (1 / 3)
 PRINT “CUBE ROOT OF NUMBER ”; C
 END

USING SUB

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