记录编号	81772	评测结果	AAAAA
题目名称	积木分发	最终得分	100
用户昵称	TA	是否通过	通过
代码语言	Pascal	运行时间	0.116 s
提交时间	2013-11-17 21:02:35	内存使用	0.13 MiB

var
 n,i:integer;
 s:longint;
 a,b,ta,tb:array[1..10000] of longint;
procedure swap(var a,b:integer);
 begin
  a:=a xor b;
  b:=a xor b;
  a:=a xor b;
 end;
procedure msort(l,r:integer);
 var
  i,j,k,m:integer;
 begin
  if l=r then
    exit;
  m:=(l+r) div 2;
  msort(l,m);
  msort(m+1,r);
  i:=l;
  j:=m+1;
  k:=l;
  while (i<=m) and (j<=r) do
   if b[i]<=b[j] then
     begin
      tb[k]:=b[i];
      ta[k]:=a[i];
      inc(k);
      inc(i);
     end
    else
     begin
      tb[k]:=b[j];
      ta[k]:=a[j];
      inc(k);
      inc(j);
     end;
  while i<=m do
   begin
    tb[k]:=b[i];
    ta[k]:=a[i];
    inc(i);
    inc(k);
   end;
  while j<=r do
   begin
    tb[k]:=b[j];
    ta[k]:=a[j];
    inc(j);
    inc(k);
   end;
  for i:=l to r do
   begin
    b[i]:=tb[i];
    a[i]:=ta[i];
   end;
 end;
begin
 assign(input,'toybrick.in');
 assign(output,'toybrick.out');
 reset(input);
 rewrite(output);
 //while not(eof) do
  //begin
   while true do
    begin
     read(n);
     if n=0 then
       exit;
     readln(s);
     for i:=1 to n do
      readln(a[i],b[i]);
     msort(1,n);
     if s>=b[n] then
       begin
        writeln('YES');
        continue;
       end;
     for i:=1 to n do
      if s>=b[i] then
        begin
         if i=n then
           begin
            writeln('YES');
            break;
           end;
         inc(s,a[i])
        end
       else
        begin
         writeln('NO');
         break;
        end;
    end;
  //end;
 close(input);
 close(output);
end.