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

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.