FOR I = 1 to 13000
   FOR J = 1 TO 13000
      FOR K = 1 TO 13000
         IF 13000 = I*J*K THEN PRINT "CUBE ROOT IS ", I
      NEXT K
   NEXT J
NEXT I