Найти произведение элементов на нечетных местах — Pascal(Паскаль)

const
  n = 9;

var
  arr: array [0 .. n] of integer; // массив чисел
.. .sum := 1;
for i := 0 to n do
  if (odd(i))sum := sum * arr[i];