奖学金
【问题描述】
某小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前 5名学生发奖学金。期末，每个学生都有 3门课的成绩：语文、数学、英语。先按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排序。
任务：先根据输入的 3门课的成绩计算总分， 然后按上述规则排序， 最后按排名顺序输出前 5 名学生的学号和总分。 注意，在前 5 名同学中， 每个人的奖学金都不相同，因此，你必须严格按上述规则排序。例如，在某个正确答案中，如果前两行的输出数据（每行输出两个数：学号、总分）是：
7 279
5 279
这两行数据的含义是：总分最高的两个同学的学号依次是 7 号、5号。这两名同学的总分都是 279（总分等于输入的语文、数学、英语三科成绩之和） ，但学号为 7 的学生语文成绩更高一些。如果你的前两名的输出数据是：
5 279
7 279
则按输出错误处理，不能得分。
【输入】
输入包含 n+1行：
第 1 行为一个正整数 n，表示该校参加评选的学生人数。
第 2 到 n+1行， 每行有 3个用空格隔开的数字，每个数字都在 0到 100之间。
第 j 行的 3 个数字依次表示学号为 j-1 的学生的语文、 数学、英语的成绩。 每个学生的学号按照输入顺序编号为 1~n（恰好是输入数据的行号减 1） 。
所给的数据保证总分相同的情况下，语文成绩一定不同。
【输出】
输出共有 5 行， 每行是两个用空格隔开的正整数 , 依次表示前 5 名学生的学号和总分。
【样例输入】
8
80 89 89
89 97 78
90 67 80
87 66 91
81 89 88
88 99 77
67 89 64
78 89 98
【样例输出】
8 265
2 264
6 264
5 258
1 258
【限制】
100% 的数据满足： 6<=n<=300

program test7; 
type 
lei=record 
      sum,num,yuwen,shuxue,yingyu:integer; 
    end;  
var 
st:array[1..500]of lei; 
temp:lei; 
i,j,n:integer; 
begin 
readln(n); 
for i:=1 to n do 
       with  st[i]  do 
         begin 
           num:=i; 
           readln(yuwen,shuxue,yingyu); 
		   sum:=yuwen+shuxue+yingyu; 
         end; 
for i:=1 to 5 do 
      for j:=   i+1 to n  do 
       begin
        if st[j].sum>st[i].sum then 
         begin 
          temp:=st[j];     st[j]:=st[i];     st[i]:=temp; 
         end 
else if   (st[j].sum) and (st[j].yuwen>st[i].yuwen)  then 
 begin 
temp:=st[j];     st[j]:=st[i];     st[i]:=temp; 
 end 
       end; 
   for i:=1 to 5 do 
     writeln(  st[i].num ,' ',st[i].sum); 
end.