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