Найти сумму всех чётных элементов массива, стоящих на чётных местах

var a:array[1..1000] of integer;
    i,sum,n:integer;
BEGIN
write('Введите размер массива'); read(n);
for i:=1 to n do
  begin
     write('a[',i,']='); read(a[i]);
  end;
write('Массив:');
for i:=1 to n do
  begin
     write(a[i]); 
  end;
  
for i:=1 to n do
  begin
    if ((not odd(a[i])) and (not odd(i))) then sum:=sum+a[i];
  end;
  writeln;
  write('Сумма=',sum);
  writeln
END.

var a:array[1..1000] of integer;
    i,sum,n,pr:integer;
BEGIN
write('Введите размер массива'); read(n);
for i:=1 to n do
  begin
     write('a[',i,']='); read(a[i]);
  end;
write('Массив:');
for i:=1 to n do
  begin
     write(a[i]); 
  end;
writeln;
if n>=5 then
begin
  pr:=1;
  for i:=1 to 5 do
    begin
      sum:=sum+a[i];
      pr:=pr*a[i];
    end;
writeln;
writeln('Сумма=',sum);
write('Произведение=',pr);
end
else write('В массиве меньше 5 элементов');
writeln
END.

var a:array[1..1000] of integer;
    i,sum,n,k1,k2:integer;
BEGIN
write('Введите размер массива'); read(n);
for i:=1 to n do
  begin
     write('a[',i,']='); read(a[i]);
  end;
write('Массив:');
for i:=1 to n do
  begin
     write(a[i]); 
  end;
writeln;
write('Введите элемент k1='); read(k1);
write('Введите элемент k2='); read(k2);
if ((k1<=k2) and (k2<=n) and (k1>=1)) then
begin
  for i:=k1 to k2 do
      sum:=sum+a[i];
  writeln('Сумма=',sum);
end
else write('k1 и k2 заданы неверно'); 
writeln
END.