记录编号	75029	评测结果	AAAAAAAAAA
题目名称	[NOIP 2009]分数线划定	最终得分	100
用户昵称	铁策	是否通过	通过
代码语言	Pascal	运行时间	0.162 s
提交时间	2013-10-26 21:37:19	内存使用	0.43 MiB

program P1336;
var
n,m,i,j,k:longint;
a,b,c:array[1..50000] of integer;
begin
assign(input,'score.in');
reset(input);
assign(output,'score.out');
rewrite(output);
readln(n,m);
for i:=1 to n do
readln(b[i],a[i]);
for i:=1 to n-1 do
  for j:=i+1 to n do
    if (a[i]<a[j])or((a[i]=a[j])and(b[i]>b[j])) then begin
    k:=a[i]; a[i]:=a[j]; a[j]:=k;
    k:=b[i]; b[i]:=b[j]; b[j]:=k;
    k:=0; end;
j:=0;
m:=trunc(m*1.5);
for i:=1 to n do
if a[i]>=a[m] then inc(j);
writeln(a[m],' ',j);
for i:=1 to n do
if a[i]>=a[m] then writeln(b[i],' ',a[i]);
end.