Дан линейный массив из 11 целых чисел найти произведение нечетных элементов

For i:=1 to 11 do
begin
   if i mod 2 <> 0 then
   Num := Num*Array[i]
end
Num - это произведение