Найти произведение элементов массива, имеющих нечетное значение.

Var a: array [1..10] of integer; k, i ,n: integer; begin k:=1; n:=10; for i:=1 to n do readln(a[i]); //ручной ввод for i:=1 to n do if i mod 2 = 1 then  k:=k*a[i]; writeln(k); end.