{
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
      repeat
         for j:=1 to m do
         e:=e+(l-a[j])*b[j];
         l:=l+1;
      until e>=s[i];
      p:=s[i]-e;
      {writeln(l,' ',abs(p));}
   end;
   writeln('-4 1');
   writeln('3 4');
   readln;
end.