记录编号	81426	评测结果	AAAAAAAAAA
题目名称	[NOIP 2007]奖学金	最终得分	100
用户昵称	我密码是sjb	是否通过	通过
代码语言	Pascal	运行时间	0.007 s
提交时间	2013-11-13 18:29:33	内存使用	0.17 MiB

var
a:array[1..3,1..300] of integer;
t,j,x,y,z,n,i:integer;
begin
assign(input,'pj07-1.in');
reset(input);
assign(output,'pj07-1.out');
rewrite(output);
readln(n);
for i:=1 to n do
begin
readln(x,y,z);
a[1,i]:=i;
a[2,i]:=x+y+z;
a[3,i]:=x;
end;

for j:=n downto 1 do
for i:=1 to j-1 do
if
(
a[2,i] < a[2,i+1]) or
((a[2,i]=a[2,i+1])and(a[3,i]< a[3,i+1])) or
((a[2,i]=a[2,i+1])and(a[3,i]=a[3,i+1]) and(a[1,i]> a[1,i+1])

) then
begin

t:=a[1,i];a[1,i]:=a[1,i+1];a[1,i+1]:=t;
t:=a[2,i];a[2,i]:=a[2,i+1];a[2,i+1]:=t;
t:=a[3,i];a[3,i]:=a[3,i+1];a[3,i+1]:=t;
end;


for i:=1 to 5 do
writeln(a[1,i],' ',a[2,i]);
close(input);
close(output);
end.