1:
2:
3:
4:
5:
6:
7:
8:

uses Math;

function nteWurzel(n, radikand: integer): real;
begin
  if radikand>=0 then
    result:=power(radikand, 1/n)
  else result:=-1;
end;					

1:
2:
3:
4:
5:
6:

function nteWurzel(n, radikand: integer): Extended;  // <-- statt Real,  Double od. Extended benutzen
begin 
  if radikand>0 then  // muss >0 sein da,
    result:=power(radikand, 1/n) // sonst hier Fehlermeldung, da 1/0 nicht zulässig
  else result:=-1; 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  ergebnis:Extended;
  ...
  ...
  // 3te Wurzel aus 9
  ergebnis:=nteWurzel(3, 9);
  ShowMessage(FloatToStr(ergebnis));

  // Quadratwurzel = 2te Wurzel aus 16 
  ergebnis:=nteWurzel(2, 16);
  ShowMessage(FloatToStr(ergebnis));