Массив

[Miha956]

Помогите!

Задана последовательность N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются нечетными числами.

[Mad_Cat]

var i:integer;
n:integer;
a,s:real;
begin
i:=0;s:=0;
readln(n);
while i<=n do
begin
inc(i);read(a);
if odd(i) then s:=s+a;
end;
writeln(s);
end.

[Miha956]

Сообщение от Mad_Cat

var i:integer;
n:integer;
a,s:real;
begin
i:=0;s:=0;
readln(n);
while i<=n do
begin
inc(i);read(a);
if odd(i) then s:=s+a;
end;
writeln(s);
end.

Спасибо большое!