Вмассиве 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.