Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-70, ±40] (размер произвольный). найти произведение элементов с четными номерами.

Const n=10;
var a: array[1..n] of integer;
i:integer; p:real;
begin
randomize;
for i:= 1 to n do
 begin
 a[i]:=random(111)-70;
 write(a[i]:4);
 end;
writeln;

p:=1;
for i:= 1 to n div 2 do p:=p*a[2*i];
writeln('p = ',p:8:0);
end.

Пример:
-51 34 -17 11 35 -20 -29 -58 -55 -32
p = -13882880

 Найти произведение элементов с четными номерами.