В одномерном массиве, состоящем из n целых элементов, вычислить:1)произведение элементов массива с чётными номерами.2)Сумму элементов массива, расположенных между первым и последним нулевыми элементами.Преобразовать массив таким образом, что-бы сначала располагались все положительные элементы, а потом — все отрицательные(элементы, равные 0, считать положительными) — Pascal(Паскаль)

uses crt;
var a:array[1..100] of integer;
    i,j,k:byte;
    x,s,d,d1,p,n:integer;
begin
clrscr;
writeln ('Vvedite kol-vo elementov ');
readln (n);
writeln('polychen massiv:');
for i:=1 to n do begin
                 a[i]:=8-random(10);
                 write (a[i]:3);
                 end;
 
writeln;
p:=1;
for i:=1 to n do
 if i mod 2=0 then
 p:=p*a[i];
 writeln ('Proizvedenie= ',p);
For i:=1 to n do
 if a[i]=0 then begin
                 d:=i;
                 break;
                 end;
 writeln ('1-i NYLEBOI element stoit na ',d,' meste ');
For i:=n downto 1 do
     if a[i]=0 then  begin
                     d1:=i;
                     break;
                     end;
 writeln ('2-i NYLEBOI element stoit na ',d1,' meste ');
writeln;
s:=0;
 For i:=d to d1 do
 s:=s+a[i];
 writeln ('Summa= ',s);
for i:=1 to n do
if a[i]>=0 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i downto k+1 do
    a[j]:=a[j-1];
    a[k]:=x;
  end;
writeln('coptirovka:');
for i:=1 to n do
write(a[i]:3);
readln
end.