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.