题目：题目描述
世博会志愿者的选拔工作正在 A 市如火如荼的进行。为了选拔最合适的人才，A 市对
所有报名的选手进行了笔试，笔试分数达到面试分数线的选手方可进入面试。面试分数线根
据计划录取人数的150%划定，即如果计划录取m名志愿者，则面试分数线为排名第m*150%
（向下取整）名的选手的分数，而最终进入面试的选手为笔试成绩不低于面试分数线的所有
选手。
现在就请你编写程序划定面试分数线，并输出所有进入面试的选手的报名号和笔试成
绩。
输入输出格式
输入格式：
第一行，两个整数 n，m（5 ≤ n ≤ 5000，3 ≤ m ≤ n），中间用一个空格隔开，其
中 n 表示报名参加笔试的选手总数，m 表示计划录取的志愿者人数。输入数据保证 m*150%
向下取整后小于等于 n。
第二行到第 n+1 行，每行包括两个整数，中间用一个空格隔开，分别是选手的报名号 k
（1000 ≤ k ≤ 9999）和该选手的笔试成绩 s（1 ≤ s ≤ 100）。数据保证选手的报名号各
不相同。
输出格式：
第一行，有两个整数，用一个空格隔开，第一个整数表示面试分数线；第二个整数为
进入面试的选手的实际人数。
从第二行开始，每行包含两个整数，中间用一个空格隔开，分别表示进入面试的选手
的报名号和笔试成绩，按照笔试成绩从高到低输出，如果成绩相同，则按报名号由小到大的
顺序输出。
思路：先排序，在选定m*1.5，判断。
代码：
var a,b:array[0..5001] of longint;
n,m,i,j,t:longint;
begin
read(n,m);
m:=m+m div 2;
for i:=1 to n do
read(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
t:=a[i]; a[i]:=a[j]; a[j]:=t;
t:=b[i]; b[i]:=b[j]; b[j]:=t;
end;
while a[m]=a[m+1] do
begin
inc(m);
end;
writeln(a[m],' ',m);
for i:=1 to m do
writeln(b[i],' ',a[i]);
end.
