В массиве F(15) найти сумму элементов, стоящих на нечетных местах

const     n = 15; var     i, s: integer;     a: array[1..n] of integer; begin     s := 0;     for i := 1 to n do     begin         write('a[', i, ']=');         readln(a[i]);         if i mod 2 = 1 then             s := s + a[i];     end;     writeln(s); end.