var i,j,k,n,m:integer;
    cur,sh : longint;
    a,b,c:array [0..100] of integer;
begin
 read(n);
 for i:=1 to n do read(a[i],b[i],c[i]);
 for i:=1 to n do
  for j:=i+1 to n do
   if a[i]>a[j] then
   begin
    a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
    b[0]:=b[i];b[i]:=b[j];b[j]:=b[0];
    c[0]:=c[i];c[i]:=c[j];c[j]:=c[0];
   end;
 cur := a[1];
 sh:=0;
 for i := 1 to n do
 begin
  cur := cur+b[i];
  j:=cur-c[i];
  if j>sh then sh:=j;
 end;
 writeln(sh);
end.

> var i,j,k,n,m:integer;
>     cur,sh : longint;
>     a,b,c:array [0..100] of integer;
> begin
>  read(n);
>  for i:=1 to n do read(a[i],b[i],c[i]);
>  for i:=1 to n do
>   for j:=i+1 to n do
>    if a[i]>a[j] then
>    begin
>     a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
>     b[0]:=b[i];b[i]:=b[j];b[j]:=b[0];
>     c[0]:=c[i];c[i]:=c[j];c[j]:=c[0];
>    end;
>  cur := a[1];
>  sh:=0;
>  for i := 1 to n do
>  begin
>   cur := cur+b[i];
>   j:=cur-c[i];
>   if j>sh then sh:=j;
>  end;
>  writeln(sh);
> end.
>

SO Cna you explain the example for me better and tell me better about
1193?
i can`t undertand what should we do 4 it?
aidin_n7@hotmail.com

>
> Hi Hi hi oleg
thanks for your quick answer!!!
My code is like yours
Var
  a                   :array[0..100,1..3] of integer;
  i,j,n               :byte;
  now,ans             :integer;
begin
  readln(n);
  for i:=1 to n do readln(a[i,1],a[i,2],a[i,3]);
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if a[i,1]>a[j,1] then begin
        a[0]:=a[i]; a[i]:=a[j]; a[j]:=a[0]; end;
  ans:=0; now:=a[1,1];
  for i:=1 to n do begin
    now:=now+a[i,2];
    if now-a[i,3]>ans then ans:=now-a[i,3];
  end;
  writeln(ans);
end.

Help Me
And if you cna tell me your mail address for more conversation and
helps!
Aidin_n7@hotmail.com is mine.

Thanks Olag
i GOt AC
no need to your help for this problem!
Special thanks for you previous comments on webboard
Aidin