program matritsa; 
const 
 n=8; 
type  
 matr= array[1..n,1..n] of integer;  
var 
 a: matr; 
 i, j, k,l,ko,sm : integer;  

Procedure findk (a:matr; var k:integer ); 
var i, j: integer; 
 begin 
  for i:=1 to n do 
   begin 
    k:=i; 
    for j:=1 to n do 
     if A[i,j] <> A [j,i] then 
      begin 
        k:=0; 
        break; 
      end; 
    if k>0 then break; 
   end; 
 end;  

begin 
 for i:=1 to n do 
  for j:=1 to n do 
   begin 
    write('a[',i,',',j,']='); 
    read(a[i,j]) 
   end; 
 findk(a, k); 
 writeln(k); 
 writeln; 
 for i:=1 to n do 
  begin 
   for j:=1 to n do write(a[i,j]:3); 
   writeln; 
  end; 
 writeln('Совпадающие строки и столбцы;'); 
 l:=0;{считаем что совпадающих строк и столбцов нет} 
 for k:=1 to n do 
  begin 
   i:=0;{считаем что в данных строке и столбце совпадений нет }  
   for j:=1 to n do 
    if a[k,j]=a[j,k] then i:=i+1;{если есть, считаем} 
   if i=n then{если все совпали} 
    begin 
     writeln('Строка и столбец № ',k);{выводим на экран}   
     l:=1;{фиксируем что есть такие} 
    end; 
  end; 
 if l=0 then writeln('Таких строк и столбцов нет!'); 
 writeln; 
 for i:=1 to n do 
  begin 
   ko:=0;{считаем что отрицательных в строке нет} 
   for j:=1 to n do 
    if a[i,j]<0 then {если нашли} 
     begin 
      ko:=1;{фиксируем} 
      break;{больше не ищем} 
     end; 
   if ko=1 then{если есть отрицательные} 
    begin 
     sm:=0;{сумма=0} 
     for k:=1 to n do sm:=sm+a[i,k];{считаем сумму в строке}    
     writeln('Сумма в строке ',i,'=',sm); 
    end; 
  end; 
 readln 
end.

const
 n=8;
type
 matr= array[1..n,1..n] of integer;
 vect= array[1..n] of integer;
var
 a,b: matr;
 i,j,l,sum : integer;

Procedure findk(q1,q2:vect; k:integer);
var
 p:integer;
 bu:boolean;
begin
 bu:=true;
 for p:=1 to n do
  if q1[p]<>q2[p] then bu:=false;
 if bu then write(k:3);
end;

Function FindSum(q:vect):Integer;
var
 p,S:integer;
 bu:boolean;
begin
 bu:=true;
 S:=0;
 for p:=1 to n do
  begin
   Inc(S,q[p]);
   if q[p]<0 then bu:=false;
  end;
 if bu then S:=-32000;
 FindSum:=S;
end;

Begin
 for i:=1 to n do
  for j:=1 to n do
   begin
    write('a[',i,',',j,']= ');
    readln(a[i,j]);
    b[j,i]:=a[i,j];
   end;
 writeln;
 for i:=1 to n do
  begin
   for j:=1 to n do write(a[i,j]:4);
   writeln;
  end;
 writeln;
 Repeat
  Writeln('Enter the action number:');
  Writeln('                       1 - FindK');
  Writeln('                       2 - FindSums');
  Writeln('                       3 - Exit');
  Readln(l);
  Case l of
   1: begin
       write('K: ');
       for i:=1 to n do FindK(a[i],b[i],i);
       writeln;
      end;
   2: begin
       for i:=1 to n do
        begin
         sum:=FindSum(a[i]);
         if sum<>-32000 then writeln('i= ',i,'   Sum= ',Sum);
        end;
      end;
   else l:=3;
  end; {Case}
 Until l=3;
End.

type
  matr= array[1..n,1..n] of integer;  
  vect= array[1..n] of integer;

type
  vect= array[1..n] of integer;
  matr= array[1..n] of vect;

    readln(a[i,j]);
    b[j,i]:=a[i,j];

    readln(a[i][j]);
    b[j][i]:=a[i][j];