叠放箱子问题

叠放箱子问题
Time Limit:10000MS  Memory Limit:65536K
Total Submit:315 Accepted:117 
Case Time Limit:1000MS
Description
　　某港口有一批集装箱，将其编号，分别为1至N。每一个箱子的外型尺寸都是一样的，现在要将其中某些集装箱叠放起来，集装箱叠放的规则如下： 
　　1)每个集装箱上最多只能直接叠放一个集装箱。 
　　2)编号较小的集装箱不能放在编号较大的集装箱之上。 
　　3)每个集装箱都给出了自身的重量和可承受的重量，每个集装箱之上的所有集装箱重量之和不得超过该集装箱的可承受的重量。 
　　现在要求你编程，从中选出最多个集装箱，使之在满足以上条件的情况下叠放起来，即要求叠得尽可能地高。 
Input
　　第一行是一个正整数N，表示共有N个集装箱（1≤ N ≤1000）。 
　　以下共有N行，每行两个正整数，中间用空格分隔，分别表示每个集装箱的自身重量和可承受的重量，两个数均为小于等于3000。
Output
输出最多可叠放的集装箱总数。运行时间不超过去时10秒。
Sample Input
5  
19 15 
7 13 
5 7 
6 8 
1 2
Sample Output

4

var
 a,w:array[1..1000]of longint;
 f:array[0..1000,0..6000]of longint;
 i,j,n,max1:longint;
function max(a,b:longint):longint;
 begin
  if a>b then exit(a);
  exit(b);
 end;
begin
 read(n);
 for i:=1 to n do
  readln(w[i],a[i]);
 f[n,w[n]]:=1;
 for i:=n-1 downto 1 do
 begin
  f[i]:=f[i+1];
  for j:=0 to a[i] do
   f[i,j+w[i]]:=max(f[i+1,j]+1,f[i,j+w[i]]);
 end;
 max1:=0;
 for i:=0 to 6000 do
  max1:=max(max1,f[1,i]);
 write(max1);
end.