Вычисления. Модуль Math Опции

[klem4]

Охх ничего с утра опнять не могу. Почему вылетает программа при X = 0 ?

{$mode objfpc}

uses Math, Crt;

var

  x: Double = 0;
  c: array [0..4] of Double = (-1, -1, 0, 2, 1);

function F: Double;
var
  i: Integer;
begin
  result := 0;
  for i := Length( c ) - 1 downto 0 do
   result := result + Power(x, i) * c[i];
end;

begin
  clrscr;
  writeln(F:2:2);
  readln;
end.

[klem4]

Как же тогда допускается такое ?!

uses crt, math;
begin

  clrscr;

  writeln(Power(-2, 2):2:1); // выводится 4
  writeln(Power(-2, 3):2:1); // выводится -8

  readln;
end.

Выходит Ln(-2) ?!!!!

:mega_chok: :blink: