Помогите, пожалуйста: найти сумму положительных элементов массива М из 22 элементов, имеющих четные номера (нумерация элементов массива начинается с единицы) спасибо 

var  a: array [1..22] of integer;  i, sum: integer;begin  for i := 1 to 22 do    readln(a[i]);  for i := 1 to 22 do    if (i mod 2 = 0) and (a[i] > 0) then       sum := sum + a[i];  writeln(sum);end.