DOANPHU PASCAL

var d:array[0..1005] of longint;
    res,u,v,n,max,t:longint;
procedure nhap_va_dem;
var i,j:longint;
begin
        readln(n);
        for i:=1 to n do
        begin
                readln(u,v);
                if u>v then
                begin
                        t:=u;
                        u:=v;
                        v:=t;
                end;
                for j:=u to v-1 do inc(d[j]);
        end;
end;
procedure giai;
var i:longint;
begin
        max:=0;
        for i:=0 to 1000 do
                if d[i]>max then max:=d[i];
        res:=0;
     //   writeln(max);
       // for i:=0 to 12 do
         //       write(d[i],' ');
        for i:=0 to 1000 do
                if d[i]=max then inc(res);
        write(res);
end;

begin
        assign(input,'doanphu.inp');reset(input);
        assign(output,'doanphu.out');rewrite(output);
        nhap_va_dem;
        giai;

end.