pascal tri

type t=array[1..100,1..100] of longint;
var a:t;
 i,m,n,n1,j,s1,s2,s3,s4,max:longint;
 f:text;
begin
        assign(f,'tri.in');
        reset(f);
        readln(f,n);
         for i:=1 to n do
          for j:=1 to n do
          read(f,a[i,j]);
        close(f);
        n1:=n div 2;
   assign(f,'tri.in');
        reset(f);
        readln(f,n);
   m:=1; j:=0;
   repeat
   begin inc(j);
   for i:=m to n do
    s1:=s1+a[i,j];
    inc(m); n:=n-1; end; until j=n1;

    assign(f,'tri.in');
        reset(f);
        readln(f,n);
        close(f);
     m:=1; j:=n+1;
   repeat
   begin dec(j);
   for i:=m to n do
     begin
    s2:=s2+a[i,j];
     end;
    inc(m); n:=n-1; end; until j=n1;

    assign(f,'tri.in');
        reset(f);
        readln(f,n);
        close(f);
     m:=1; i:=n+1;
   repeat
   begin dec(i);
   for j:=m to n do
     begin
    s3:=s3+a[i,j];
     end;
    inc(m); n:=n-1; end; until i=n1;

     assign(f,'tri.in');
        reset(f);
        readln(f,n);
        close(f);
     m:=1; i:=0;
   repeat
   begin inc(i);
   for j:=m to n do
    s4:=s4+a[i,j];
    inc(m); n:=n-1; end; until i=n1;

                max:=0;
        if s1>max then max:=s1;
        if s2>max then max:=s2;
        if s3>max then max:=s3;
        if s4>max then max:=s4;

if s1=max then
     begin
     assign(f,'tri.in');
        reset(f);
        readln(f,n);
        close(f);
      m:=1; j:=0;
   repeat
   begin inc(j);
   for i:=m to n do
    writeln(a[i,j]); inc(m); n:=n-1; end; until j=n1; end;
if s2=max then
 begin
     assign(f,'tri.in');
        reset(f);
        readln(f,n);
        close(f);
     m:=1; j:=n+1;
   repeat
   begin
    dec(j);
   for i:=m to n do
    writeln(a[i,j]);
    inc(m); n:=n-1; end; until j=n1; end;
if s3=max then
 begin
  assign(f,'tri.in');
        reset(f);
        readln(f,n);
        close(f);
     m:=1; i:=n+1;
   repeat
   begin dec(i);
   for j:=m to n do
    writeln(a[i,j]); inc(m); n:=n-1; end; until i=n1; end;
if s4=max then
 begin
   assign(f,'tri.in');
        reset(f);
        readln(f,n);
        close(f);
     m:=1; i:=0;
   repeat
   begin inc(i);
   for j:=m to n do
    writeln(a[i,j]);  inc(m); n:=n-1; end; until i=n1; end;
 readln;
end.