uses crt;
var
        a:array[1..100,1..100] of integer;
        i,j,n,max,m:integer;
begin
clrscr;
write('N=');readln(n);
for i:=1 to n do begin
        for j:=1 to n do begin
           gotoxy(j*4,i+1);
           read(a[i,j]);
        end;
writeln;
end;

max:=a[2,n]; m:=0;

for i:=2 to n do begin
        for j:=n downto n-m do
         if a[i,j]>max then max:=a[i,j];
 inc(m);
end;
write('Max=',max);
readln;
end.