存

program aaa;
type sum=record 
    s:array[0..50000] of longint;
    top:longint;
  end;
var n,k,p,i,c:longint;
color:array[0..50] of sum;
w:array[0..200000] of longint;
t:array[0..800000] of longint;
procedure build(p,l,r:longint);
var mid:longint;
begin
 if l=r then 
  begin
   t[p]:=w[l];
   exit;
  end;
mid:=(l+r) shr 1;
build(p*2,l,mid);
build(p*2+1,mid+1,r);
 if t[p*2]<t[p*2+1] then t[p]:=t[p*2] else t[p]:=t[p*2+1];
end;
begin
readln(n,k,p);
 for i:=0 to 50 do color[i].top:=0;
 for i:=1 to n do
  begin
   readln(c,w[i]);
   inc(color[c].top);
   color[c].s[color[c].top]:=i;
  end;
fillchar(t,sizeof(t),0);
build(1,1,n);
 for i:=1 to 
end.