Найти произведения элементов главной диагонали и побочной диагонали матрицы - Pascal

Найдите для массива nxn произведение чисел главной диагонали и боковой диагонали.

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

p1:=1;
p2:=1;
for i:=1 to n do
begin
p1:=p1*a[i,i];
p2:=p2*a[i,n+1-i];
end;
writeln(p1);
writeln(p2);

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

Создается переменная p1 и устанавливается значение 1.
Создается переменная p2 и устанавливается значение 1.
Запускается цикл for, в котором переменная i принимает значения от 1 до n.
В теле цикла переменная p1 умножается на элемент матрицы с индексами [i, i].
В теле цикла переменная p2 умножается на элемент матрицы с индексами [i, n+1-i].
Выводится значение переменной p1.
Выводится значение переменной p2.