вычислить: сумму элементов массива с нечетными номерами - паскаль

[vasil-diman]

Ребята, помогите пожалуйста!!!
Кто что сможет,,, очень прошу!!! Спасибо!


В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1) сумму элементов массива с нечетными номерами;

[vasil-diman]

Вот ч то я смог накатать!

В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1) сумму элементов массива с нечетными номерами;

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.