const n=10;
var a:array[1..n] of integer;
      i,pr:integer;
begin
randomize;
for i:=1 to n do begin
  a[i]:=random(55)-5;
  write(a[i],' ');
end;

pr:=1;
for i:=1 to n do begin
  if i mod 2=0 then
    pr:=pr*a[i];
end;
writeln('Произведение равно:',pr);
end.