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

##</code><code>##

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

##</code><code>##

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