Mixing Milk

Since milk packaging is such a low margin business, it is important to keep the price of the raw product (milk) as low as possible. Help Merry Milk Makers get the milk they need in the cheapest possible manner.

The Merry Milk Makers company has several farmers from which they may buy milk, and each one has a (potentially) different price at which they sell to the milk packing plant. Moreover, as a cow can only produce so much milk a day, the farmers only have so much milk to sell per day. Each day, Merry Milk Makers can purchase an integral amount of milk from each farmer, less than or equal to the farmer's limit.

Given the Merry Milk Makers' daily requirement of milk, along with the cost per gallon and amount of available milk for each farmer, calculate the minimum amount of money that it takes to fulfill the Merry Milk Makers' requirements.

Note: The total milk produced per day by the farmers will be sufficient to meet the demands of the Merry Milk Makers.

PROGRAM NAME: milk

INPUT FORMAT

Line 1:	Two integers, N and M.  The first value, N, (0 <= N <= 2,000,000) is the amount of milk that Merry Milk Makers wants per day. The second, M, (0 <= M <= 5,000) is the number of farmers that they may buy from.
Lines 2 through M+1:	The next M lines each contain two integers, Pi and Ai.  Pi (0 <= Pi <= 1,000) is price in cents that farmer i charges. Ai (0 <= Ai <= 2,000,000) is the amount of milk that farmer i can sell to Merry Milk Makers per day.

 

SAMPLE INPUT (file milk.in)

100 55 209 403 108 806 30

OUTPUT FORMAT

A single line with a single integer that is the minimum price that Merry Milk Makers can get their milk at for one day.

SAMPLE OUTPUT (file milk.out)

630

{
    ID: makeeca1PROG: milkLANG: PASCAL}program milk;var a,p:array[1..5000]of longint;    i,n,m,ans:longint;procedure qsort(l,r:longint);var i,j,t,x:longint;begin  i:=l;j:=r;x:=a[random(r-l+1)+l];  repeat    while a[i]
     
      x do dec(j);    if i<=j then begin t:=a[i];a[i]:=a[j];a[j]:=t;                       t:=p[i];p[i]:=p[j];p[j]:=t;inc(i);dec(j);end;  until i>j;  if i
      
       0 then begin dec(n,p[i]);inc(ans,a[i]*p[i]);end                 else begin inc(ans,n*a[i]);break;end;  writeln(ans);  close(output);end.