Дан массив из 15 чисел посчитать количество тех чисел, у которых чётный индекс. .

Var a: array [1..15] of integer; i, s: integer;
begin
     for i := 1 to 15 do
         read(a[i]);
     s := 0;
     for i := 1 to 15 do
     if i mod 2 = 0 then
        s := s + a[i];
     writeln(s);
end.

Тут даже программу писать не надо, ибо от 1 до 15 всегда ровно 7 четных чисел