记录编号	7171	评测结果	AAAAAAAAAA
题目名称	[USACO Jan08] 奶牛的选举	最终得分	100
用户昵称	王瑞祥K	是否通过	通过
代码语言	Pascal	运行时间	0.143 s
提交时间	2008-11-06 21:58:55	内存使用	0.68 MiB

program elect(input,output);
var
 a:array[1..50000,1..3]of longint;
 n,k,i,max,ans:longint;
procedure swap(x,y:longint);
var t:longint;
begin
 t:=a[x,1];a[x,1]:=a[y,1];a[y,1]:=t;
 t:=a[x,2];a[x,2]:=a[y,2];a[y,2]:=t;
 t:=a[x,3];a[x,3]:=a[y,3];a[y,3]:=t;
end;
procedure qsort(c,l,r:longint);
var i,j,x:longint;
begin
 i:=l; j:=r; x:=a[i,c];
 repeat
  while (a[j,c]>=x)and(i<j) do dec(j);
  swap(j,i);
  while (a[i,c]<=x)and(i<j) do inc(i);
  swap(i,j);
 until i=j;
 inc(i);dec(j);
 if i<r then qsort(c,i,r);
 if j>l then qsort(c,l,j);
end;
begin
 assign(input,'elect.in');assign(output,'elect.out');
 reset(input);rewrite(output);
 readln(n,k);
 for i:=1 to n do begin
  readln(a[i,1],a[i,2]);
  a[i,3]:=i;
 end;
 qsort(1,1,n);
 max:=0;
 for i:=n-k+1 to n do
  if a[i,2]>max then begin
   max:=a[i,2];
   ans:=a[i,3];
  end;
 write(ans);
 close(input);close(output);
end.