{
TASK: FESTB
LANG: PASCAL
}

var
  num: array[1..1000] of Longint;
  peop: array[1..1000] of Longint;
  m,n,k: Longint;
  i,j,min: Longint;
  s: Longint;
  sum: Longint;
  ans1,ans2: Longint;

begin
  readln(m,n);
  for i:= 1 to m do
    readln(num[i],peop[i]);
  for k:= 1 to n do
  begin
    min:= maxlongint;
    readln(s);
    for i:= -10000 to 10000 do
    begin
      sum:= 0;
      for j:= 1 to m do
        sum:= sum+abs(num[j]-i)*peop[j];
      if abs(s-sum)<min then
      begin
        min:= abs(s-sum);
        ans1:= i;
        ans2:= abs(s-sum); 
      end;
    end;
    writeln(ans1,' ',ans2);
  end;
end.