生产武器

题目描述：最近，飞过海在OI总部总算弄了个小差，现在他又被调去了OI防卫部门来制造对付基德的工具。当然，这些工作是在OI总部内的机器上进行的，可是飞过海从来没有此经验，现在飞过海又接到了一批新的任务，现在他要编程来控制机器。已知机器一天工作N mins，当飞过海按动开始按钮的时候机器就开始运转。现在OI总司给了K个生产目标，可是只有一台机器，所以总司希望知道最少机器能生产多少个零件（也就是最少工作多少分钟）。如果同时有许多的零件要加工，机器只能选择一个。但是一个零件任务是有时间限制的，也就是说，1个零件必须从P分开始，持续T分钟（好牵强的规定啊！）。由于飞过海很忙，所以请你来编写一下这个程序吧！

输入：输入文件中的第一行为两个整数N，K（1<=N<=10000000，1<=K<=100000），其中：N表示机器的运转时间（由于机器要维护，它只能工作那么多时间），单位为分钟，K表示总司布置的零件总数。接下来的K行，每行有两个整数P，T，表示该任务从第P分钟开始，持续时间为T分钟。

输出：输出文件中仅一行为一个数，表示机器最多可能加工零件的最少时间。

样例输入：

1 1
1 1

样例输出：

1

思路：简单的DP（要不是题目描述不清楚，我比赛时就AC了），顺便说一句：最近比赛的题目描述好难懂啊！！！

代码：

var
        n,m,i,j,k,x,y,z,s,ls:longint;
        f:array[0..20000001]of longint;
        a,b:array[0..200001]of longint;
procedure qs(l,r:longint);
var
        i,j,mid,t:longint;
begin
        i:=l;
        j:=r;
        mid:=a[(l+r)div 2];
        repeat
                while a[i]<mid do inc(i);
                while a[j]>mid do dec(j);
                if i<=j then
                begin
                        t:=a[i];
                        a[i]:=a[j];
                        a[j]:=t;
                        t:=b[i];
                        b[i]:=b[j];
                        b[j]:=t;
                        inc(i);
                        dec(j);
                end;
        until i>j;
        if l<j then qs(l,j);
        if i<r then qs(i,r);
end;
begin
        assign(input,'produce.in');
        reset(input);
        assign(output,'produce.out');
        rewrite(output);
        readln(n,m);
        for i:=1 to m do
        readln(a[i],b[i]);
        qs(1,m);
        for i:=n downto 1 do
        begin
                if i<>a[m] then f[i]:=f[i+1]+1
                else
                begin
                        while i=a[m] do
                        begin
                                if f[i+b[m]]>f[i] then f[i]:=f[i+b[m]];
                                dec(m);
                        end;
                end;
        end;
        writeln(n-f[1]);
end.