Сделать массив. Вычислить творенье частей с нечетными индексами. Элементы массива-

Вот и код на паскале :)
program nechotnie;    const size=1000;//наибольшее количество елементов масcива     var a:array[1..size] of longint;       i,n,neparni:longint;begin   readln(n); //вводим количество елементов в массиве   neparni:=1; //для вычисление произведение елементов масива надобно всегда брать изначальное значение 1 а если надобно суму то 0   for i:=1 to n do      begin         a[i]:=random(-10,10); //наполняем масив случайными числами         if i mod 2lt;gt;0 then neparni:=neparni*a[i]; // если индекс i непарный,то умножаем значение для вычислений на етот елемент      end;   writeln(neparni); //вывод произведенияend.

Const n=5;
var a:array [1..n] of integer;
i,p:integer;
begin
for i:= 1 to n do
a[i]:= Random(-10,10);
writeln('Массив: ',a);
p:=1;for i:=1 to n do
if i mod 2 lt;gt; 0 then p:=p*a[i];
writeln('Творенье элементов с нечётными индексами одинаково: ',p);
readln
end.