Помогите решить задачу по програмируванию:Знайти суму 1-го ,3-го,5-го...19-го елементів масиву з 20 дійсних чисел.Будь ласка дуже потрібно.

const n=20; var a:array[1..n] of real;i:integer; s:real;beginwriteln('Исходный массив:');for i:=1 to n do begin a[i]:=10*random; write(a[i]:5:1); end;writeln;s:=0; for i:=1 to n do if i mod 2 <> 0 then s:=s+a[i];writeln('S = ',s:5:2)end.Пример (для 10 чисел):Исходный массив:  1.0  2.2  7.2  8.4  8.6  7.5  3.9  0.3  6.8  5.2S = 27.63