5 lines
91 B
Text
5 lines
91 B
Text
real procedure nthroot(x, n);
|
|
value x, n; real x, n;
|
|
begin
|
|
nthroot := x ** (1/n);
|
|
end;
|