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

uses crt;
const n=10;
var m:array[1..n]of longint;
i,j,c1,c2,p:longint;
 
begin
 clrscr;
 write('Введите массив -> ');
 for i:=1 to n do read(m[i]);
 readln;
 p:=1;
 for i:=1 to n do if mod i mod 2=0 then p:=p*m[i];
 writeln('Произедение элементов с чётными номерами = ',p);
 c1:=1;
 c2:=n;
 while (c1<n) and (m[c1]<>0) do inc(c1);
 while (c2>1) and (m[c2]<>0) do dec(c2);
 p:=0;
 for i:=c1+1 to c2-1 do p:=p+m[i];
 writeln('Сумма элементов между первым и последним нулевыми элементами = ',p);
 for i:=1 to n do for j:=1 to n-1 do
 if (m[j]<0) and (m[j+1]>=0) then
 begin
  p:=m[j];
  m[j]:=m[j+1];
  m[j+1]:=p;
 end;
 writeln('Отсортированный массив');
 for i:=1 to n do write(m[i],' ');
 readln;
end.

uses crt;
var
a:array[1..100]of integer;
i,p,p0,p1,sum,temp,n,j:integer;
begin clrscr;
write('n=');
read(n);
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
writeln;
p:=1;
for i:=1 to n do
if i mod 2=0 then p:=p*a[i];
writeln('proizvedenie=',p);
writeln;
for i:=n downto 1 do
if a[i]=0 then p0:=i;
writeln('pervyi 0 v pozicii - ',p0);
writeln;
for i:=1 to n do
if a[i]=0 then p1:=i;
writeln('poslednii 0 v posicii - ',p1);
writeln;
sum:=0;
for i:=p0 to p1 do
sum:=sum+a[i];
writeln('summa=',sum);
writeln;
writeln('uporydochennyi massiv:');
for i:=1 to n do
for j:=1 to n-1 do
if a[j]<0 then
 begin
  temp:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=temp;
 end;
for i:=1 to n do
write(a[i],'  ');
readkey;
end.

uses crt;
var a:array[1..20] of integer;
    i,j,k,n,c,sum,p,x,q:integer;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
 for i:=1 to n do
  begin
   a[i]:=random(8)-2;
   Write(a[i]:4);
  end;
Writeln;
sum:=0;
p:=1;
 for i:=1 to n do
  if i mod 2=0 then
   p:=p*a[i];
 for i:=1 to n do
  if a[i]=0 then begin
   c:=i;
  break;
 end;
 for i:=n downto 1 do
  if a[i]=0 then begin
   k:=i;
   break;
  end;
sum:=0;
 for i:=c to k do
  sum:=sum+a[i];
 Writeln('Sum=',sum);
 Writeln('C=',c,' K=',k);
 Writeln('P=',p);
 for i:=1 to n do
   if (a[i]>0) then
    begin
     q:=q+1;
     x:=a[i];
     for j:=i downto q+1 do
     a[j]:=a[j-1];
     a[q]:=x;
    end;
Writeln;
 for i:=1 to n do
  Write(a[i]:4);
Readln;
end.