const n=8;
type TMatrix=array [1..n,1..n] of Integer;
 
procedure ShowEqRC(const a: TMatrix);
var i, k: Integer;
begin
  Write('Совпадающие строки/столбцы:');
  for k:=1 to n do begin
    i:=n; while (i>0) and (a[k,i]=a[i,k]) do Dec(i);
    if i=0 then Write(' ',k);
  end; WriteLn;
end;
 
procedure SumRN(const a: TMatrix);
var i, j, m, s: Integer;
begin
  WriteLn('Суммы строк с отрицительным элементом:');
  for i:=1 to n do begin
    m:=0; s:=0;
    for j:=1 to n do begin
      if m>a[i,j] then m:=a[i,j];
      s:=s+a[i,j];
    end;
    if m<0 then WriteLn(i,': ',s);
  end;
end;
 
var
  i, j: Integer;
  a: TMatrix;
begin
  WriteLn('Введите матрицу ',n,'x',n,':');
  for i:=1 to n do for j:=1 to n do Read(a[i,j]);
  WriteLn('A =');
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:6); WriteLn;
  end;
  ShowEqRC(a);
  SumRN(a);
end.