{
TASK: FESTB
LANG: PASCAL
}
program festb;
var hs,qu,s,a,b:array[1..200]of integer;
    e,p,i,j,n,m,k,l:integer;
begin
   e:=0;
   l:=0;
   readln(m,n);
   for i:=1 to m do
      readln(a[i],b[i]);
   for i:=1 to n do
      readln(s[i]);
   for i:=1 to n do
   begin
      for j:=1 to m do
         if e<=s[i] then
            e:=e+a[j]*b[j];
      writeln(e);
   end;
   readln;
end.