> program t1193;
> type types=record
>            b:longint;
>            l:longint;
>            e:longint;
>            end;
> var n,i,start:longint;
>     t:array[0..100]of types;
> procedure sort;
> var j,i:integer;
>     y:types;
> begin
>      for i:=1 to n do
>          for j:=i to n do
>              if (t[i].b>t[j].b)or((t[i].b=t[j].b)and(t[i].e>t
[j].e))
> then
>                 begin
>                      y:=t[i];
>                      t[i]:=t[j];
>                      t[j]:=y;
>                 end;
> end;
> begin
>      assign(input,'c:\pas\in.txt');
>      reset(input);
>      readln(n);
>      for i:=1 to n do
>          readln(t[i].b,t[i].l,t[i].e);
>      close(input);
>      sort;
>      start:=t[1].b;
>      for i:=1 to n do
>          begin
>          start:=start+t[i].l;
>          if t[i+1].b>start then start:=t[i+1].b;
>          end;
>      start:=start-t[n].e;
>      if start>0 then writeln(start)
>                 else writeln(0);
> end.