OOPS: Forgot the algorithm. Here's the algorithm, in perl and Basic, (basically, raise the number to the 1/3 power):

#Perl
$BigNum= 21952;
$Root3 = $BigNum ** (1/3);
print "The cube Root of $BigNum is $Root3\n";

'BASIC
Num = 21952
CubeRoot = Num ^ (1 / 3)
PRINT CubeRoot