Найти сумму элементов массива с четными номерами содержащего 17 элементов. Элементы вводятся с клавиатурЫ. Решите пожалуйста на Паскале

Прошу прощения, в коде есть ошибочные строки. Попробую переделать.

Вот так правильно: program Massiv;var mas: array[1..17] of integer;i,Sum: integer;beginSum:=0;for i:=1 to 17 do beginwriteln('Vvedite chisla');read(mas[i]);if i mod 2 = 0then Sum:=Sum+mas[i];end;writeln('Summa= ', Sum);readln(Sum);end.