дан массив с размером 20 элементов заполняется формулой c[i]:=i*2+1. Отыскать произведение

program fantscrin;

   const n =20;

   var i,p:integer;

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

begin

    for i:=1 to n do

       c[i]:=i*2+1;  

    for i:=1 to n do

       write(c[i], '  ');

    writeln('');

    p:=1;

    for i:=1 to n do

       p:=p*c[i];

    writeln(p);

end.