type aa=record y,s,w:integer; end; bb=record f,h:integer; end; var a:array[1..300]of aa; b:array[1..5]of bb; n,i,j,k,t:integer; f:boolean; begin readln(n); for i:=1 to 5 do with b[i] do begin f:=0; h:=0; end; for i:=1 to n do begin with a[i] do read(y,s,w); j:=1; f:=true; t:=a[i].y+a[i].s+a[i].w; while (j<=5)and f do begin if (t>b[j].f)or((t=b[j].f)and(a[i].y>a[b[j].h].y)) then begin for k:=5 downto j+1 do begin b[k].f:=b[k-1].f; b[k].h:=b[k-1].h; end; b[j].f:=t; b[j].h:=i; f:=false; end else if (t=b[j].f)and(a[i].y=a[b[j].h].y) then begin for k:=5 downto j+2 do begin b[k].f:=b[k-1].f; b[k].h:=b[k-1].h; end; b[j+1].h:=i; b[j+1].f:=t; f:=false; end; j:=j+1; end;

end; for i:=1 to 5 do with b[i] do writeln(h,' ',f); end. 
/**************************************************************
	Problem: 2268
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/