PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018
Внимание! Если программа не работает, обновите версию!
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