Задан двухмерный массив чисел. Значения элементов матрицы формируются случайным образом. Вычислить произведение суммы элементов главной диагонали на сумму элементов каждой строки

Program all;

const n = 6; var

a: array[1 ... n, 1 ... n] of integer;

s1, s2, p:integer;

i, j:integer;

beginfor i:=1 to n do

begin

for j:=1 to n do

begin

a[i, j]:=10-random (20) ;

write (a[i, j],' ') ;

end;

writeln () ;

end;

s1:=0;

s2:=0;

for i: = 1 to n do

for j:=1 to n do

s1:=s1+a[i, j];

for i : = 1 to n do

for j: = 1 to n do

if i=j then

begin

s2:=s2+a[i, j];

p:=s1*s2;

end;

writeln ('p=', p) ;

readln;

end.