PROGRAM xxx;
USES crt;
VAR a:ARRAY[1..10000] OF INTEGER;f1,f2: TEXT;
i,j,k,n,imin,jmax,lmax,cs,tmax,tmin:LONGINT;
PROCEDURE docvao;
BEGIN
assign(f1,'HOITRAI.INP');
reset(f1);
assign(f2,'HOITRAI.OUT');
rewrite(f2);
Readln(f1,N);
imin:=1;
jmax:=1;
END;
PROCEDURE Tinhsonguoi;
VAR m :LONGINT;
BEGIN
FOR m:=1 TO N DO
BEGIN
readln(f1,i,j);
IF j> jmax THEN jmax:=j;
IF i< imin THEN imin:=i;
FOR k:=i TO j DO
a[k]:=a[k]+1;
END;
END;
PROCEDURE Timthoidiem;
VAR i : LONGINT;
BEGIN
FOR i:= imin+1 TO jmax DO
IF a[i]>lmax THEN
BEGIN
lmax:=a[i] ;
cs:=i;
END;
END;
PROCEDURE Timkhoang;
VAR t,ti,max: LONGINT;
BEGIN
max:=0;
t:=1;
WHILE t<jmax DO
BEGIN
WHILE (a[t] <> 0) AND (t<jmax)DO
t:=t+1;
ti:=t;
WHILE (a[t] = 0 )AND (t<jmax)DO
t:=t+1;
IF t-ti+1 > max THEN
BEGIN
max:= t - ti-1;
tmax:=t-1;
tmin:=ti;
END;
END;
IF max < 0 THEN BEGIN tmin:= 32765; tmax:= 32765;END;
END;
BEGIN
docvao;
tinhsonguoi;
timthoidiem;
timkhoang;
Writeln(f2,cs);
Write(f2,tmin,' ',tmax);
close(f2);
END.
