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

vars:real;n,i:integer;a:array[1..1000] of real;beginwrite('Введите кол-во элементов: '); readln(n);writeln('Введите элементы: ');for i:=1 to n do read(a[i]);s:=0;for i:=1 to n doif odd(i) then s:=s+a[i]; writeln('Сумма: ',s);end.