program RaizCubica;
uses crt, math;

var numero_entero, raiz_cubica : real;
begin
    write ('Ingresa el valor de numero entero: ');
    readln (numero_entero);
    raiz_cubica := power(numero_entero,1.0/3.0);
    writeln ('Valor de raiz cubica: ', raiz_cubica:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.