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

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