function Pow(x: real; n: integer): real :=
(n = 0) and (x <> 0) ? 1.0 :
(n <> 0) and (x = 0) ? 0.0 :
n > 0 ? x * Pow(x, n - 1) :
Pow(x, n + 1) / x;
begin
Pow(-0.034, -6).Println
end.
function Pow(x: real; n: integer): real :=
(n = 0) and (x <> 0) ? 1.0 :
(n <> 0) and (x = 0) ? 0.0 :
n > 0 ? x * Pow(x, n - 1) :
Pow(x, n + 1) / x;
begin
Pow(-0.034, -6).Println
end.
Результат647331137.613734