先找最便宜的，再买最便宜的，然后将最便宜的删除。如此循环下去，直至买够。注意最后一笔不能全买，所以买之前要有个判断：需要大于等于提供，全买；小于，买需求量。每次循环也要有个判断，检查是否还须买。

你哪找来的这么难的题目？？

type arr=array[1..5000]of longint;
var
  a,b:array[1..5000]of longint;
  i,j,k,l,m,n:longint;
procedure qsort(l,r:longint;var a,b:arr);
var x,i,j,x1:longint;
begin
  if l>=r then exit;
  i:=l;j:=r;x:=a[i];x1:=b[i];
  repeat
    while (a[j]>=x)and(i<j) do dec(j);
    if (a[j]<x)and(i<j) then begin a[i]:=a[j]; b[i]:=b[j]; inc(i); end;
    while (a[i]<=x)and(i<j) do inc(i);
    if (a[i]>x)and(i<j) then begin a[j]:=a[i]; b[j]:=b[i]; dec(j); end;
  until i=j;
  a[i]:=x;b[i]:=x1;
  qsort(l,i,a,b);qsort(i+1,r,a,b);
end;
begin
  assign(input,'milk.in');reset(input);
  assign(output,'milk.out');rewrite(output);
  readln(m,n);
  for i:=1 to n do readln(a[i],b[i]);
  qsort(1,n,a,b);k:=0;i:=1;l:=0;
  while l+b[i]<m do
    begin
      inc(k,a[i]*b[i]);
      inc(l,b[i]);
      inc(i);
    end;
  j:=1;writeln(k+(m-l)*a[i]);
  close(input);close(output);
end.

贪心