[Kpyc]

Код:

function Xi(n: integer): extended;
begin
  Result := (m - n + 1) * power(x, n) / fact(n);
end;

При х=0 и n=0 выдает в ответе не 0. Трассировкой выяснил, что проблема в этой функции, m и x описаны глобально. Подскажите, где я натупил?