Сумма компонентов - Pascal

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

Помогите найти сумму компонентов a1+aN, a2+aN-1, a3+aN-2, ..., ak+am для k<=m.

Решение задачи: «Сумма компонентов»

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

s:=0;
for i:=1 to n div 2 do//до середины массива
s:=s+a[i]+a[n-i+1];//суммируем пары симметричных
if odd(n) then s:=s+2*a[n div 2+1];//если размер нечетный, прибавляем удвоенное центральное (m=k).

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

s = 0 // Инициализация переменной s нулем
Цикл for от i до n div 2 // Проход от 1 до середины массива
s = s + a[i] + a[n-i+1] // Суммирование пар симметричных элементов массива к s
Если n нечетное, то s = s + 2 * a[n div 2+1] // Прибавление удвоенного значения центрального элемента массива к s