10 CLS
20 DIM UB(1 TO 10) AS INTEGER
30 FOR I = 1 TO 7
    40 INPUT "ENTER THE VALUE:", UB(I)
50 NEXT I
60 PRINT "YOU HAVE INSERTED THESE VALUES"
70 FOR M = 1 TO 7
    80 PRINT UB(M)
90 NEXT M
100 LET N = 7
110 LET K = UB(3)
120 C = K ^ 3
130 PRINT "THE CUBE OF DELETED ELEMENT IS = "; C

140 END

PROGRAM RESULT