Problem:
Score: 400 points

Problem Statement

Kizahashi, who was appointed as the administrator of ABC at National Problem Workshop in the Kingdom of AtCoder, got too excited and took on too many jobs.

Let the current time be time 0. Kizahashi has N jobs numbered 1 to N.

It takes A_i units of time for Kizahashi to complete Job i. The deadline for Job i is time B_i, and he must complete the job before or at this time.

Kizahashi cannot work on two or more jobs simultaneously, but when he completes a job, he can start working on another immediately.

Can Kizahashi complete all the jobs in time? If he can, print Yes; if he cannot, print No.

Constraints

All values in input are integers.

1 \leq N \leq 2 \times 10^5

1 \leq A_i, B_i \leq 10^9 (1 \leq i \leq N)

Input

Input is given from Standard Input in the following format:

N
A_1 B_1
.
.
.
A_N B_N

Output

If Kizahashi can complete all the jobs in time, print Yes; if he cannot, print No.

Sample Input 1

5
2 4
1 9
1 8
4 9
3 12

Sample Output 1

Yes

He can complete all the jobs in time by, for example, doing them in the following order:

Do Job 2 from time 0 to 1.

Do Job 1 from time 1 to 3.

Do Job 4 from time 3 to 7.

Do Job 3 from time 7 to 8.

Do Job 5 from time 8 to 11.

Note that it is fine to complete Job 3 exactly at the deadline, time 8.

Sample Input 2

3
334 1000
334 1000
334 1000

Sample Output 2

No

He cannot complete all the jobs in time, no matter what order he does them in.

Sample Input 3

30
384 8895
1725 9791
170 1024
4 11105
2 6
578 1815
702 3352
143 5141
1420 6980
24 1602
849 999
76 7586
85 5570
444 4991
719 11090
470 10708
1137 4547
455 9003
110 9901
15 8578
368 3692
104 1286
3 4
366 12143
7 6649
610 2374
152 7324
4 7042
292 11386
334 5720

Sample Output 3

Yes

Solution in Pascal (FPC 2.6.2) (judge verdict: Accepted)

program Megalomania;
const maxn=2*trunc(1e5);
var a,b:array[1..maxn] of longint;
    n:longint;

procedure rf;
var i:Longint;
begin
	readln(n);
	for i:=1 to n do readln(a[i],b[i]);
end;

procedure swap(var x,y:longint);
var tmp:longint;
begin
	tmp:=x;
    x:=y;
    y:=tmp;
end;

procedure sort(l,r:longint);
var i,j,x:Longint;
begin
	i:=l; j:=r;
	x:=b[(l+r) div 2];
	repeat
	  while b[i]<x do inc(i);
	  while b[j]>x do dec(j);
	  if i<=j then
	    begin
	      swap(b[i],b[j]);
	      swap(a[i],a[j]);
	      inc(i);
	      dec(j);
	    end;
	until i>j;
	if l<j then sort(l,j);
	if i<r then sort(i,r);
end;

procedure greedy;
var i,sum:longint;
    check:boolean;
begin
	sum:=0; check:=true;
	for i:=1 to n do
	  begin
        sum:=sum+a[i];
        if sum>b[i] then 
          begin
            check:=false;
            break;
          end;
      end;
    if check then write('Yes') else write('No');
end;

begin
	rf;
	sort(1,n);
	greedy;
end.