Информатика помогите решить

 program SumEvenIndexes; 
var 
  A: array[1..100] of integer; 
  i, n, sum: integer; 
begin 
  writeln('Введите количество элементов массива (n):'); 
  readln(n); 
 
  writeln('Введите ', n, ' элементов массива:'); 
  for i := 1 to n do 
    readln(A[i]); 
 
  sum := 0; 
  for i := 2 to n do
    if (i mod 2 = 0) then 
      sum := sum + A[i]; 
 
  writeln('Сумма элементов с четными индексами: ', sum); 
end.