Дан одномерный вещественный массив из n чисел. Написать программу нахождения суммы элементов массива стоящих на нечетных позициях (индекс). БЛОК СХЕМА НЕ НУЖНА ТОЛЬКО ПРОГРАММА 10 БАЛЛОВ

Var
s:real;
n,i:integer;
a:array[1..1000] of real;

begin
write(Введите кол-во элементов: ); readln(n);
writeln(Введите элементы: );
for i:=1 to n do 
read(a[i]);
s:=0;
for i:=1 to n do
if odd(i) then s:=s+a[i]; 
writeln(Сумма: ,s);

end.