program Project1;
var i,j,n,max,ans,cmax:longint;
    a:array [1..500,1..500] of longint;
    b:array [1..500] of longint;
begin
    readln(n);
    for i:=1 to n do
        for j:=i+1 to n do begin read(a[i,j]); a[j,i]:=a[i,j]; end;
    fillchar(b,sizeof(b),0);
    for i:=1 to n do
    begin
        max:=0;cmax:=0;
        for j:=1 to n do
            if a[i,j]>max then begin cmax:=max;max:=a[i,j];end
                          else if a[i,j]>cmax then cmax:=a[i,j];
        if cmax>ans then ans:=cmax;
    end;
    writeln('1');
    writeln(ans);
end.
                                                                          
/**************************************************************
	Problem: 2295
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/