Дан одномерный массив, который содержит не более 50 вещественных чисел. Найти сумму элементов, которые расположены на местах с нечетными номерами

Var x: Array [1..50] of Real; i,n: Byte; s: Real; BEGIN Repeat Write('Введите кол-во элементов не более 50: '); Readln(n); until n in [1..50]; s:=0; For i:=1 to n do begin            x[i]:=10*Random;           If Odd(i) Then           s:=s+x[i];          Write(x[i]:7:2); end; Writeln; Writeln('Сумма элементов с нечетными индексами = ',s:0:2); END.