Найти сумму четных элементов массива, имеющих четные индексы - Turbo Pascal (33799)

Формулировка задачи:

Ребята, помогите с задачей пожалуйста: Дан целочисленный массив С из n эл-тов (n<=30). Нужно найти сумму четных элементов массива, имеющих четные индексы.

Решение задачи: «Найти сумму четных элементов массива, имеющих четные индексы»

Листинг программы

For i:=1 to N do If (not Odd(C[i])) and (not Odd(i)) then Summ:=Summ+C[i];
Writeln(Summ);

Объяснение кода листинга программы

Переменная N представляет собой количество элементов в массиве C.
В цикле for переменной i присваивается значение от 1 до N.
В условии If проверяется два условия:
- not Odd(C[i]) - элемент C[i] должен быть четным.
- not Odd(i) - номер элемента i должен быть четным.
Если оба условия выполняются, то к переменной Summ прибавляется значение C[i].
После выполнения цикла, значение переменной Summ выводится на экран с помощью функции Writeln().