Código Delphi [-] function Raiz(X: Extended): Extended; begin Result:= Exp(Ln(X)/2); end;
function Raiz(X: Extended): Extended; begin Result:= Exp(Ln(X)/2); end;