Нужно решить задачу на языке Паскаль! Дана матрица А n-го порядка.Найти "добуток" елементов главной и боковой диагонали!

А что такое "добуток"? ("добуток" перевел с украинского как "произведение")
И заодно определение боковой диагонали, а то задача какая то неясная :)

На русском это звучит как "побочная" диагональ.
Программа элементарна и в тех или иных вариациях писалась многократно, следовало заюзать поиск.

const N=10;

var a:array[1..N] of array[1..N] of Integer;
k,m1,m2:Integer;

begin
{как-то вводишь матрицу, после чего: }
m1:=1; {произведение главной}
m2:=1; {произведение главной}
for k:=1 to N do begin
m1:=m1*a[k,k];
m2:=m2*a[k,N-k+1];
end;

writeln(m1,' ',m2);
readln;

end.