Вычислить сумму элементов массива с нечетными номерами

program tema1;
const n=10;
var a:array[1..n] of integer;
i,s:integer;
begin
randomize;
s:=0;
for i:=1 to n do
begin
a[i]:=random(9)+2; {массив заполняется случайными числами из интервала от 2 до 10}
write(a[i],' '); {вывод текущего элемента массива на экран, все элементы выводятся в строку через пробел}
if i mod 2=0 then s:=s+a[i]; {подсчет суммы элементов массива с нечетными номерами}
end;
writeln;
writeln('s=',s); {вывод значения суммы элементов с нечетными номерами на экран}
end;

const n=10; W=6; D=2;
var
  a: array [1..n] of Real;
  s: Real;
  i, j: Integer;
begin
  Randomize;
  for i:=1 to n do a[i]:=-5+10*Random;
  Write('A ='); for i:=1 to n do Write(a[i]:W:D); WriteLn;
  s:=0; i:=1; while i<=n do begin s:=s+a[i]; Inc(i,2); end;
  WriteLn('Сумма элементов с нечетным номером: ',s:0:D);
  i:=1; while (i<=n) and (a[i]>=0) do Inc(i);
  j:=n; while (j>=1) and (a[j]>=0) do Dec(j);
  s:=0; for i:=i+1 to j-1 do s:=s+a[i];
  WriteLn('Сумма элементов между первым и последним отрицательными: ',s:0:D);
  j:=1; for i:=1 to n do if Abs(a[i])>1 then begin a[j]:=a[i]; Inc(j); end;
  for i:=j to n do a[i]:=0;
  Write('A''='); for i:=1 to n do Write(a[i]:W:D); WriteLn;
end.