program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const n=5;
var matr:array [1..n,1..n] of integer;
s,c: array [1..n] of integer;
i,j,k,min1,min2:integer;
begin
randomize;
 for i:=1 to n do
   begin
     for j:=1 to n do
       begin matr[i,j]:=random(100)-20;
             write (matr[i,j]:3,' ')
       end;
     writeln;
   end;


  k:=0;s[k]:=0;
while k<=n do begin
for i:=1 to n+1-i-k do
begin j:=n+1-i-k;
      s[k]:=s[k]+matr[i,j];
end;
writeln('s[',k,']=',s[k]);k:=k+1 end;

k:=1; c[k]:=0; while k<=n-1 do begin for i:=n downto n+1-i+k do
  begin j:=n+1-i+k;
         c[k]:=c[k]+matr[i,j]
  end;
 writeln('c[',k,']=',c[k]);k:=k+1 end;

min1:=s[1]; for k:=1 to n do if s[k]<min1 then min1:=s[k];
min2:=c[1]; for k:=2 to n-1 do if c[k]<min1 then min1:=c[k];

if min1<min2 then writeln ('min_summa=',min1)
            else  writeln ('min_summa=',min2);
readln
end.