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