Description
牛奶包装是一个如此低利润的生意,所以尽可能低的控制初级产品(牛奶)的价格变的十分重要。
请帮助快乐的牛奶制造者(Merry Milk Makers)以可能的最廉价的方式取得他们所需的牛奶。
快乐的牛奶制造公司从一些农民那购买牛奶，每个农民卖给牛奶制造公司的价格不一定相同。
而且,如一只母牛一天只能生产一定量的牛奶,农民每一天只有一定量的牛奶可以卖。
每天,快乐的牛奶制造者从每个农民那购买一定量的牛奶,少于或等于农民所能提供的最大值。
给出快乐牛奶制造者的每日的牛奶需求,连同每个农民的可提供的牛奶量和每加仑的价格,请计算快乐的牛奶制造者所要付出钱的最小值。
注意:
每天农民生产的牛奶的总数对快乐的牛奶制造者来说足够的。
Input
第 1 行:二个整数, N 和 M。
第一个数值,N,(0<= N<=2,000,000)是快乐的牛奶制造者的一天需要牛奶的数量。
第二个数值,M,(0<= M<=5,000)是他们可能从农民那买到的数目。
第 2 到 M+1 行:每行二个整数,Pi 和 Ai。
Pi(0<= Pi<=1,000) 是农民 i 牛奶的价格。
Ai(0 <= Ai <= 2,000,000)是农民 i 一天能卖给快乐的牛奶制造者的牛奶数量。
Output
单独的一行包含单独的一个整数，表示快乐的牛奶制造者拿到所需的牛奶所要的最小费用
Sample Input
100 5
5 20
9 40
3 10
8 80
6 30
Sample Output
630
题解：
因为价格的范围在0到1000之内，所以，我们只要在读入数据的时候把相同价格的合并即可，进行计算时，也只需要i从0到1000进行扫描，若有价格为i的牛奶收购即可，直到买够m为止。这样就不需要排序了。
代码：
vart,tt,i,m,n,a,b:longint;sum:array[0..10000] of int64;
beginreadln(n,m);for i:=1 to m dobeginreadln(a,b);sum[a]:=sum[a]+b;end;for i:=0 to 10000 dobeginif sum[i]<>0 thenbegin t:=t+i*sum[i];tt:=tt+sum[i];end;if tt>=n then break;end;t:=t-(tt-n)*i;writeln(t);
end.