var a,b,c:array[1..300] of integer;

i,j,k,m,l,x,y,z:longint;

begin

readln(l);

for i:=1 to l do

begin

readln(a[i],y,z);

b[i]:=i;

c[i]:=a[i]+y+z;

end;

for i:=1 to l-1 do

for j:=l downto i+1 do

begin

if c[i]