題目描述

牛奶包裝是一個如此低利潤的生意,所以儘可能低的控制初級產品(牛奶)的價格變的十分重要。

請幫助快樂的牛奶製造者(Merry Milk Makers)以可能的最廉價的方式取得他們所需的牛奶。

快樂的牛奶製造公司從一些農民那購買牛奶，每個農民賣給牛奶製造公司的價格不一定相同。

而且,如一隻母牛一天只能生產一定量的牛奶,農民每一天只有一定量的牛奶可以賣。

每天,快樂的牛奶製造者從每個農民那購買一定量的牛奶,少於或等於農民所能提供的最大值。

給出快樂牛奶製造者的每日的牛奶需求,連同每個農民的可提供的牛奶量和每加侖的價格,請計算快樂的牛奶製造者所要付出錢的最小值。

注意:

每天農民生產的牛奶的總數對快樂的牛奶製造者來說足夠的。

PROGRAM NAME: milk

INPUT FORMAT

第 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 一天能賣給快樂的牛奶製造者的牛奶數量。

SAMPLE INPUT (file milk.in) 

100 5

5 20

9 40

3 10

8 80

6 30

OUTPUT FORMAT

單獨的一行包含單獨的一個整數，表示快樂的牛奶製造者拿到所需的牛奶所要的最小費用

SAMPLE OUTPUT (file milk.out)

630

var n,m,i,ans:longint;
    a:array[1..2,1..5000] of longint;
procedure qsort(l,r:longint);
var i,j,m,t:longint;
begin
    i:=l;
    j:=r;
    m:=a[1,(l+r) div 2];
    repeat
        while a[1,i]<m do inc(i);
        while
 
 a[1,j]>m do dec(j);
        if i<=j then
        begin
            t:=a[1,i];
            a[1,i]:=a[1,j];
            a[1,j]:=t;
            t:=a[2,i];
            a[2,i]:=a[2,j];
            a[2,j]:=t;
            inc(i);
            dec(j);
        end;
    until i>j;
    if l<j then qsort(l,j);
    if i<r then qsort(i,r);
end;
begin
    readln(n,m);
    for i:=1 to m do readln(a[1,i],a[2,i]);
    qsort(1,m);
    i:=0;
    while n>0 do
    begin
        inc(i);
        if n>=a[2,i] then
        begin
            n:=n-a[2,i];
            ans:=ans+a[2,i]*a[1,i];
        end
        else
        begin
            ans:=ans+n*a[1,i];
            n:=0;
        end;
    end;
    writeln(ans);
end.