var a,b:array [1..1010] of longint;
     max,s,n,j:longint;
     i,x,y:longint;

begin
 readln(n);
 for i:=1 to n do begin
   readln(x,y);
   inc(a[x]);
   dec(a[y+1]);
 end;
 s:=0; max:=0;
 for i:=1 to 1010 do begin
   s:=s+a[i];
   if s>max then max:=s;
 end;
 writeln(max);
end.