记录编号	4256	评测结果	AAAAAAAAAA
题目名称	[USACO Jan08] 奶牛的选举	最终得分	100
用户昵称	苏轼	是否通过	通过
代码语言	Pascal	运行时间	0.132 s
提交时间	2008-10-15 21:28:12	内存使用	5.83 MiB

program cch(input,output);
var
 a:array[1..500000,1..3] of longint;
 i,j,n,m,max,ans:longint;

procedure swap(var x,y:longint);
var
 tmp:longint;
begin
 tmp:=x;
 x:=y;
 y:=tmp;
end;

procedure qsort(l,r:longint);
var
 i,j,x:longint;
begin
 i:=l; j:=r;
 x:=a[(l+r) div 2,1];
 repeat
  while x<a[i,1] do inc(i);
  while x>a[j,1] do dec(j);
  if i<=j then
   begin
    swap(a[i,1],a[j,1]);
    swap(a[i,2],a[j,2]);
    swap(a[i,3],a[j,3]);
    inc(i); dec(j);
   end;
 until i>j;
 if i<r then qsort(i,r);
 if j>l then qsort(l,j);
end;

begin
 assign(input,'elect.in');
 assign(output,'elect.out');
 reset(input);
 rewrite(output);
 readln(n,m);
 for i:=1 to n do
  begin
   readln(a[i,1],a[i,2]);
   a[i,3]:=i;
  end;
 qsort(1,n);
 max:=0;
 for i:=1 to m do
  if max<a[i,2] then
   begin
    max:=a[i,2];
    ans:=a[i,3];
   end;
 write(ans);
 close(input);
 close(output);
end.