Найти сумму элементов матрицы из заштрихованной области - PascalABC.NET

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

Используя следующий фрагмент программы , найдите сумму элементов s из заштрихованной области массива А :

var
A:array[1..9,1..9] of real;
s:real;

Решение задачи: «Найти сумму элементов матрицы из заштрихованной области»

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

/// для a)
s := 0; for i := 1 to 8 do s := s + a[i,1] + a[1,i+1] + a[9,i] + a[i+1,9];
/// для b)
s := 0; for i := 1 to 9 do s := s + a[i,i] + a[i,10-i]; s := s - a[5,5];
/// для c)
s := 0; for i := 1 to 4 do for j := i to 10-i do s := s + a[i,j] + a[10-i,j]; s := s + a[5,5];

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

В коде представлены три варианта вычисления суммы элементов матрицы из заштрихованной области.
Вариант a) - сумма элементов матрицы из заштрихованной области (первый прямоугольник) вычисляется с помощью цикла for, который проходит по элементам матрицы a[i,1], a[i,2], a[i,3], a[i,4], a[i,5], a[i,6], a[i,7], a[i,8] и прибавляет их к переменной s.
Вариант b) - сумма элементов матрицы из заштрихованной области (первый квадрат 3х3) вычисляется с помощью цикла for, который проходит по элементам матрицы a[i,i], a[i,10-i] и прибавляет их к переменной s. Затем из этой суммы вычитается значение элемента a[5,5].
Вариант c) - сумма элементов матрицы из заштрихованной области (два прямоугольника 2х5) вычисляется с помощью вложенных циклов for, которые проходят по элементам матрицы a[i,j] и прибавляют их к переменной s. Затем к этой сумме прибавляется значение элемента a[5,5].