var a,b,r:array[1..3000] of byte; j,i,n:integer; min,min_old,temp:integer; f1,f2:text; k,kol:integer; per:boolean; begin {зчитування} assign(f1,'reklama.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 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; kol:=0; i:=1; j:=1; per:=false; min_old:=0; while i<=n do begin min:=b[i]; while (a[i]