program sqfgs;

var a:array[-1..20,-1..20] of longint;

f:array[-1..40,-1..20,-1..20,-1..20] of integer;

i,l,k,m,n,x1,x2,x3,y1,y2,y3,temp:longint;

function max(x11,x12,x13,x4,x5,x6,x7,x8:integer):integer;

var maxn:longint;

begin

maxn:=0;

if x11>maxn then maxn:=x11;

if x12>maxn then maxn:=x12;

if x13>maxn then maxn:=x13;

if x4>maxn then maxn:=x4;

if x5>maxn then maxn:=x5;

if x6>maxn then maxn:=x6;

if x7>maxn then maxn:=x7;

if x8>maxn then maxn:=x8;

exit(maxn);

end;

begin

readln(n);

for i:=1 to n do

for l:=1 to n do

read(a);

for k:=1 to 2*n-1 do

for x1:=1 to n do

for x2:=x1 to n do

for x3:=x2 to n do

begin

y1:=k+1-x1; y2:=k+1-x2; y3:=k+1-x3;

if (x1