Ошибка в условии задачи или в тестах. Вместо четных индексов работает при нечётных.
//AArray13. Найти сумму элементов массива
//с четными индексами.
uses pt4;
var a:array[1…20] of real;
s:real;
i,n:integer;
begin
task(‘aarray13’);
readln(n); for i:=1 to n do read(a[i]);
s:=0;
FOR i:=1 TO N DO
if i mod 2=0 then s:=s+a[i];
writeln(s)
end.