Var
 A:Array[1..8, 1..8] of Integer;
 i,j,k:byte;
 Sum:Integer;
 b:boolean;
Begin
 For i:=1 to 8 do
  For j:=1 to 8 do
   begin
    Write('A[',i,',',j,']= ');
    Readln(A[i,j]);
   end;
 Writeln;

 For i:=1 to 8 do
  begin
   for j:=1 to 8 do write(A[i,j]:4);
   writeln;
  end;
 Writeln;
 Write('k= ');
 For k:=1 to 8 do
  begin
   b:=true;
   for i:=1 to 8 do
    if A[k,i]<>A[i,k] then b:=false;
   If b then Write(k:2);
  end;
 Writeln;
 Writeln;
 For i:=1 to 8 do
  begin
   b:=false;
   Sum:=0;
   for j:=1 to 8 do
    if A[i,j]<0 then b:=true;
   if b then
    begin
     for j:=1 to 8 do Inc(Sum,A[i,j]);
     writeln('i= ',i,'  Sum= ',Sum);
    end;
   end;
 Readln
End.

Const
 N=9;
Var
 A:Array[1..N,1..N] of Integer;
 D:Array[1..2*N-2] of Word;
 i,j,k:Byte;
 Min:Word;
Begin
 Randomize;
 Writeln('Initial matrix:');
 For i:=1 to N do
  begin
   for j:=1 to N do
    begin
     A[i,j]:=-10+Random(20);
     write(A[i,j]:4);
    end;
   Writeln;
  end;
 Writeln;
 Writeln('Array of sums:');
 For k:=1 to N*2-2 do D[k]:=0;
 k:=0;
 For j:=1 to N-1 do
  begin
   Inc(k);
   for i:=1 to j do D[k]:=D[k]+Abs(A[i,1-i+j]);
  end;
 For j:=2 to N do
  begin
   Inc(k);
   for i:=N downto j do D[k]:=D[k]+Abs(A[i,N-i+j]);
  end;
 For k:=1 to 2*N-2 do write(D[k]:4);
 Writeln;
 Writeln;
 Min:=D[1];
 For k:=2 to 2*N-2 do
  If D[k]<Min then Min:=D[k];
 Writeln('Minimal: ',Min);
 Readln
End.