Дан массив c[n] заполненный по формуле, найти творенье его нечентых частей

program raf105;

const  

 n = 10;

var  

 c:array[1..n] of real;

 i:integer;

 x,pro:real;

begin

write('x = ');

readln(x);

pro:=1;

for i:=1 to n do

begin

 c[i]:= sin(2*x)+3;

 if (i mod 2)lt;gt;0

   then pro*= c[i];

end;

writeln('Произведение нечётных элементов: ',pro);

end.