10 CLS
20 N = 5
30 DIM A(1 TO N) AS INTEGER
40 FOR I = 1 TO N
    50 INPUT "ENTER THE VALUE: ", A(I)
60 NEXT I
70 LET SUM = 0
80 PRINT "THE PERFECT SQUARES ARE"
90 FOR K = 1 TO N
    100 LET ROOT = SQR(A(K))
    110 IF ((ROOT ^ 2) = A(K)) THEN
        120 PRINT "", A(K)
        130 LET CUBE = A(K) ^ 3
        140 SUM = SUM + CUBE
    150 END IF
160 NEXT K
170 PRINT "THE SUM OF THE CUBE OF THE PERFECT SQUARE IS ", SUM

 180 END
PROGRAM RESULT