记录编号	69697	评测结果	AEAAAAAAEE
题目名称	[USACO Jan08] 奶牛的选举	最终得分	70
用户昵称	张汕成神犇	是否通过	未通过
代码语言	Pascal	运行时间	0.041 s
提交时间	2013-09-20 12:44:29	内存使用	0.28 MiB

var
a,b,c,d,e,f,g,h,i:longint;
y:array[1..3,1..5000]of int64;
begin
assign(input,'elect.in');
reset(input);
assign(output,'elect.out');
rewrite(output);
read(a,f);
for b:=1 to a do   begin
read(y[1,b],y[2,b]);y[3,b]:=b;end;

 {if f<=a div 2 then} begin
for c:=1 to  f do
for d:=c+1 to a do
if y[1,c]<y[1,d] then begin
e:=y[1,c];y[1,c]:=y[1,d];y[1,d]:=e;
e:=y[2,c];y[2,c]:=y[2,d];y[2,d]:=e;
e:=y[3,c];y[3,c]:=y[3,d];y[3,d]:=e;
end;
for g:=1 to f do
if h<y[2,g] then   begin
h:=y[2,g];i:=y[3,g];end;
end;{ else     begin
 for c:=a  downto  f do
for d:=c-1 downto 1 do
if y[1,c]>y[1,d] then begin
e:=y[1,c];y[1,c]:=y[1,d];y[1,d]:=e;
e:=y[2,c];y[2,c]:=y[2,d];y[2,d]:=e;
e:=y[3,c];y[3,c]:=y[3,d];y[3,d]:=e;
end;
for g:=1 to a-f+1 do
if h<y[2,g] then   begin
h:=y[2,g];i:=y[3,g];end;
   end;   }
write(i);

 close(input);close(output);

end.