Произведение элементов массива в функции (передача массива в функцию) (Delphi)

[Toxa16]

Нужно сделать следующую вещь: пройтись по элементам массива, каждый возвести в квадрат, и перемножать их (элементы). Так делаю (на Паскале)

const
C: array[1..4] of real = (1,2,3,4);

function CountMass(arr: array of real): real;
var
n: integer;
op: real;
i: integer;
begin
op := 1;
for i := 1 to 4 do op := arr[i] * arr[i] * op;
CountMass:= op;
end;

begin
WriteLn(CountMass(c));
readln;
end.

Выдается нулевой результат. В чем дело?

[veniside]

> В чем дело?

в индексации. Открытые массивы индексируются с 0.