Напишите функцию, которая позволяет вычислить корень любой натуральной степени. само число и степень корня – параметры функции. , надо!

Function root(m,n :integer) :real;
begin
root :=  exp(ln(m)/n)
end;
// корень n степени из числа m

{ ВНИМАНИЕ: Требует "uses Math;" и
FreePascal / Pascal ABC для Power() }

function NthRoot(x: real; y: integer): real;
begin
  NthRoot := Power( x, (1 / y) );
end;
begin
  writeln(NthRoot(9, 2):0:1);
end.