uses math;
var a,b,F:array[0..10000] of longint;
    i,n,j,kq:longint;
Procedure sort(L,H:longint);
Var i,j:longint;
    x,tg:longint;
Begin
   i:=L;
   j:=H;
   x:=a[(L+H) div 2];
   Repeat
      While (a[i]<x) do inc(i);
      While (a[j]>x) do dec(j);
      If i<=j then
         Begin
            tg:=a[i];
            a[i]:=a[j];
            a[j]:=tg;
            tg:=b[i];
            b[i]:=b[j];
            b[j]:=tg;
            inc(i);
            dec(j);
         End;
   Until i>j;
   If L<j then sort(L,j);
   If i<H then sort(i,H);
End;
BEGIN
   readln(n);
   for i:=1 to n do
        read(a[i],b[i]);
   sort(1,n);
   for i:=1 to n do f[i]:=b[i]-a[i];
   for i:=1 to n do
      for j:=i-1 downto 1 do
        if a[i]>=b[j] then f[i]:=max(f[i],f[j]+b[i]-a[i]);
   for i:=1 to n do kq:=max(kq,f[i]);
   write(kq);
END.

- Với mỗi thời điểm kết thúc t ta lưu lại các thời điểm bắt đầu s tương ứng. Như vậy với mỗi t có thể có nhiều s => Lưu lại bằng danh sách liên kết.

- Gọi F[t] là tổng thời gian lớn nhất hội trường được sử dụng với thời điểm kết thúc các buổi họp phải <= t.
- F[0] := 0;
- F[t] := max(F[t - 1], F[s] + t - s); 
(t = 1 -> 30000; s là các thời điểm bắt đầu tương ứng với t).

kq:=0;
      for i:=1 to n do
        begin
          t:=0;
          for j:=1 to i-1 do
            if p[i]>=k[j] then
              if h[j]>t then t:=h[j];
          h[i]:=t+k[i]-p[i];
          if h[i]>kq then kq:=h[i];
        end;