В двумерном массиве вычислить произведение суммы элементов каждого столбца на сумму элементов N строки - Pascal ABC - Ответ 3115943

const
  nmax=100;
var
  a: array[1..nmax,1..nmax] of integer;
  p,q,n,i,j: integer;
  sum1,sum2,pr: integer;
begin
  write('Введите размеры массива: ');
  readln(p,q);
  writeln('Исходный массив:');
  for i:=1 to p do
  begin
    for j:=1 to q do
    begin
      a[i,j]:=random(19)-9;
      write(a[i,j]:5);
    end;
    writeln;
  end;
  writeln;
  
  repeat
    write('Введите число n (1<=n<=p): ');
    readln(n);
  until n in [1..p];
  
  sum1:=0;
  for j:=1 to p do
    sum1:=sum1+a[n,j];
  writeln('Сумма элементов ',n,'-й строки = ',sum1);
  
  for j:=1 to q do
  begin
    sum2:=0;
    for i:=1 to p do
      sum2:=sum2+a[i,j];
    pr:=sum1*sum2;
    writeln('Произведение ',j,'-го столбца и ',n,'-й строки = ',pr);
  end;
  readln;
end.