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

for i:=1 to 10 do
 begin
   a[i]:=random(100);
end;
proizv:=1;
for i:=1 to 10 do
begin
 writeln(a[i]+' ');
if(i mod 2<>0) then proizv:=proizv*a[i];
end;
writeln(proizv);

const  p = 10;
type     Tarr1 =  array[1..p] of integer;
var  myArr1:Tarr1;
    i:integer;
    proizv:real;
 
// процедура для заполнения массива типа tArr[n] random
  // @param a,b - диапазон рандома
 procedure RandomFillArray1(n,a,b:integer;var arr:Tarr1);
 var i:integer;
 begin
 randomize;
  for i:=1 to n do
    arr[i]:=random(b-a+1)+a;
 end;
 
// процедура печатает  массив типа tArr[n]
 procedure PrintArray1(n:integer;var arr:Tarr1);
 var i:integer;
 begin
  for i:=1 to n do  write(arr[i],' ');
  writeln;
 end;
 
begin
 
 RandomFillArray1(p,-100,100,myarr1);
     proizv:=1;
     for i:=1 to p do
      if i mod 2 <> 0 then proizv:=proizv*myarr1[i];
    PrintArray1(p,myarr1);
    writeln('произведение элементов, имеющих нечетные индексы = ',proizv);
 
end.