pascal nhe mấy bạn .cảm ơn nhe

program TRUNG;
uses
  Math;

const
  N = 1000000;

type
  Pair = record
    fi, se: Int64;
  end;

var
  n, m, ans: Int64;
  a: array[1..N] of Pair;

procedure Swap(var a, b: Pair);
var
  temp: Pair;
begin
  temp := a;
  a := b;
  b := temp;
end;

procedure QuickSort(left, right: LongInt);
var
  i, j: LongInt;
  x: Int64;
begin
  if left < right then
  begin
    i := left;
    j := right;
    x := a[(left + right) div 2].fi;
    repeat
      while a[i].fi < x do
        Inc(i);
      while a[j].fi > x do
        Dec(j);
      if i <= j then
      begin
        Swap(a[i], a[j]);
        Inc(i);
        Dec(j);
      end;
    until i > j;
    QuickSort(left, j);
    QuickSort(i, right);
  end;
end;

procedure Input;
var
  i: LongInt;
begin
  readln(n, m);
  for i := 1 to m do
    readln(a[i].fi, a[i].se);
end;

procedure Solve;
var
  i: LongInt;
begin
  QuickSort(1, m);
  i := 1;
  while (n > 0) and (i <= m) do
  begin
    if n >= a[i].se then
    begin
      ans := ans + a[i].fi * a[i].se;
      n := n - a[i].se;
    end
    else
    begin
      ans := ans + a[i].fi * n;
      n := 0;
    end;
    Inc(i);
  end;
end;

procedure Output;
begin
  writeln(ans);
end;

begin
  // Assign(input, 'TRUNG.INP');
  // Assign(output, 'TRUNG.OUT');
  // Reset(input);
  // Rewrite(output);

  Input;
  Solve;
  Output;

  // Close(input);
  // Close(output);
end.