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.
