корень нечетной степени, как добыть корень? Опции

[sheka]

как добыть корень нечетной степени?

я пробовал разложить нечетную степень через четные, но ничего не получается.( например 7 степени)

[sheka]

Честно, я вообще не могу понять, почему авторы не могли предусмотреть функции поднесения в степень. Разве что в определенных случаях это может кому-нибудь навредить, хотя я не представляю кому и чем.
Вот думал сделать так:

if x <> 0 then znam := exp(ln(abs(x))/3);
if x < 0 then znam := -znam;

но не понимаю, чем это Вам не нравится.
К чему вы клоните? к тому, что это надо делать исключениями? Ну в таком случае, почему-то ФП слово try распознает как переменную:

  try
    znam := exp(ln(x)/3);
  except
    on EinvalidArgument do znam := exp(ln(-x)/3);
    on EZeroDivide do znam := 0;
  end;