Помогите пожалуйста! Найти сумму элементов массива…

Вместо 10 подставляешь число элементов массиваvar a: array[1… 10] of integer; sum,i: integer; beginWriteln ('Zadayte massiv'); for i: =1 to 10 do readln (a[i]); sum: =0; for i: =1 to 10 do if i mod 2 <>0 then sum: =sum+a[i]; writeln ('Summa=',sum); end.