var a,b,r:array[1..3000] of longint; j,i,n:longint; min,min_old,temp:longint; f1,f2:text; k,kol:longint; per:boolean; begin assign(f1,'g.in'); reset(f1); readln(f1,n); for i:=1 to n do readln(f1,a[i],b[i]); close(f1); {сортування по a} for i:=1 to n-1 do for j:=1 to n-1 do begin if a[j]>a[j+1] then begin temp:=a[j]; a[j]:=a[j+1]; a[j+1]:=temp; temp:=b[j]; b[j]:=b[j+1]; b[j+1]:=temp; end; if (a[j]=a[j+1])and (b[j]>b[j+1]) then begin temp:=b[j]; b[j]:=b[j+1]; b[j+1]:=temp; end; end; kol:=0; i:=1; j:=1; per:=false; min_old:=0; while i<=n do begin min:=b[i]; while (a[i]