采药

【题目描述】
辰辰是个天资聪颖的孩子，他的梦想是成为世界上最伟大的医师。为此，他想拜附近最有威望的医师为师。医师为了判断他的资质，给他出了一个难题。医师把他带到一个到处都是草药的山洞里对他说：“孩子，这个山洞里有一些不同的草药，采每一株都需要一些时间，每一株也有它自身的价值。我会给你一段时间，在这段时间里，你可以采到一些草药。如果你是一个聪明的孩子，你应该可以让采到的草药的总价值最大。”
如果你是辰辰，你能完成这个任务吗？
【输入格式】
第一行有两个整数T（1 <= T <= 1000）和M（1 <= M <= 100），用一个空格隔开，T代表总共能够用来采药的时间，M代表山洞里的草药的数目。
接下来的M行每行包括两个在1到100之间（包括1和100）的整数，分别表示采摘某株草药的时间和这株草药的价值。
【输出格式】
一个整数，表示在规定的时间内，可以采到的草药的最大总价值。
【样例输入】
70 3
71 100
69 1
1 2
【样例输出】
3
【分析】
典型的01背包问题，只有取和不取两种选择。

uses math;
var
  f:array[0..1001,0..1001]of longint;
    t,c:array[1..100]of longint;
    i,j,n,time:longint;
begin
  readln(time,n);
    for i:=1 to n do read(t[i],c[i]);
    for i:=t[1] to time do f[1,i]:=c[1];
    for i:=2 to n do
    begin
      for j:=1 to t[i]-1 do f[i,j]:=f[i-1,j];
        for j:=t[i] to time do f[i,j]:=max(f[i-1,j],f[i-1,j-t[i]]+c[i]);
    end;
    write(f[n,time]);
end.