奖学金

var
 a:array[0..300,1..5] of longint;
 i,j,n:longint;
begin
 read(n);
 for i:=1 to n do
 begin
  a[i,1]:=i;
  read(a[i,2],a[i,3],a[i,4]);
  a[i,5]:=a[i,2]+a[i,3]+a[i,4];
 end;
 for i:=1 to n-1 do
  for j:=i+1 to n do
   if a[i,5]<a[j,5] then
   begin
    a[0]:=a[i];
    a[i]:=a[j];
    a[j]:=a[0];
   end
   else
    if (a[i,5]=a[j,5])and(a[i,2]<a[j,2]) then
     begin
      a[0]:=a[i];
      a[i]:=a[j];
      a[j]:=a[0];
     end
     else
      if (a[i,5]=a[j,5])and(a[i,2]=a[j,2])and(a[i,1]>=a[j,1]) then
       begin
        a[0]:=a[i];
        a[i]:=a[j];
        a[j]:=a[0];
       end;
  for i:=1 to 5 do
  writeln(a[i,1],' ',a[i,5]);
end.