В квадратном рандомном массиве посчитать сумму элементов главной диагонали и произведение элементов побочной диагонали.

var i, j, n, sum: byte;
pro: real;
a: array [1..10, 1..10] of byte;
begin
write (' размерность матрицы n = ');
readln (n);
sum:=0;
pro:=1;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:= 1+random (9);
write (a[i, j]:3);
if i=j then sum:=sum+a[i,j];
if i=n+1-j then pro:=pro*a[i,j];
end;
writeln;
end;
writeln ('сумма элементов главной диагонали = ', sum);
writeln ('произведение элементов побочной диагонали = ', pro);
end.

massiv 2x2
4 8
5 10
summa gl.diagonali = 14
proizvedenie pobo4noy diagonali= 40
++++++++++++++
massiv 2x2
1 6
5 5
summa gl.diagonali = 6
proizvedenie pobo4noy diagonali= 30
++++++++++++++
massiv 2x2
6 10
10 8
summa gl.diagonali = 14
proizvedenie pobo4noy diagonali= 100
++++++++++++++
massiv 2x2
3 9
4 9
summa gl.diagonali = 12
proizvedenie pobo4noy diagonali= 36
++++++++++++++
massiv 2x2
1 5
1 3
summa gl.diagonali = 4
proizvedenie pobo4noy diagonali= 5
++++++++++++++
massiv 2x2
6 7
4 8
summa gl.diagonali = 14
proizvedenie pobo4noy diagonali= 28
++++++++++++++
massiv 2x2
5 6
2 1
summa gl.diagonali = 6
proizvedenie pobo4noy diagonali= 12
++++++++++++++
massiv 2x2
6 1
5 2
summa gl.diagonali = 8
proizvedenie pobo4noy diagonali= 5
++++++++++++++
massiv 2x2
6 5
7 8
summa gl.diagonali = 14
proizvedenie pobo4noy diagonali= 35
++++++++++++++
massiv 2x2
8 7
1 7
summa gl.diagonali = 15
proizvedenie pobo4noy diagonali= 7
++++++++++++++
massiv 2x2
1 8
3 6
summa gl.diagonali = 7
proizvedenie pobo4noy diagonali= 24
++++++++++++++
massiv 2x2
1 5
2 6
summa gl.diagonali = 7
proizvedenie pobo4noy diagonali= 10
++++++++++++++
massiv 2x2
9 6
10 7
summa gl.diagonali = 16
proizvedenie pobo4noy diagonali= 60
++++++++++++++
massiv 2x2
2 1
8 1
summa gl.diagonali = 3
proizvedenie pobo4noy diagonali= 8
++++++++++++++
massiv 2x2
7 4
7 9
summa gl.diagonali = 16
proizvedenie pobo4noy diagonali= 28
++++++++++++++
massiv 2x2
6 1
6 9
summa gl.diagonali = 15
proizvedenie pobo4noy diagonali= 6
++++++++++++++
massiv 2x2
8 6
6 3
summa gl.diagonali = 11
proizvedenie pobo4noy diagonali= 36
++++++++++++++
massiv 2x2
10 1
4 7
summa gl.diagonali = 17
proizvedenie pobo4noy diagonali= 4
++++++++++++++
massiv 2x2
5 4
3 5
summa gl.diagonali = 10
proizvedenie pobo4noy diagonali= 12
++++++++++++++
massiv 2x2
5 1
2 5
summa gl.diagonali = 10
proizvedenie pobo4noy diagonali= 2
++++++++++++++
massiv 2x2
3 2
1 5
summa gl.diagonali = 8
proizvedenie pobo4noy diagonali= 2
++++++++++++++