Дано натуральное число n. Найти кубический корень из произведения цифр заданного числа. ПАСКАЛЬ.

Var
   n,c,P:integer;

Begin
Write('n = ');
ReadLn(n);
P:=1;
While n > 0 do
   Begin
   c:=n mod 10;
   P:=P*c;
   n:=n div 10
   End;
WriteLn('Куб кор = ',exp((1/3) * ln(P)));
End.