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 0) AND (t 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.