Помогите с произвольными степенями.... Опции

[v-pest]

Помогите пожалуйста, как можно возвести отрицательное число в произвольную степень, например (-1)^4;  (exp(ln(-1)/4) - не работает... выдает ошибку, таким образом можно возвести в степень только положительные числа.

Помогите.... help me...

[v-pest]

И точно не правильно, надо было вместо деления умножение ставить... sorry... :o
Я тут и сам посидел и придумал маленькую процедурку, работает нормально и с отрицательными числами, но дробные не берет...

Function V_Stepen(znach:real; stepen:byte):real;
var
 i : byte;
 k: real;
begin
 k:=znach;
 for i:=1 to stepen-1 do k:=k*znach;
 V_Stepen:=k;
end;

Но если есть другие варианты, пожалуйста пишите, я приму в сведение.