{
TASK: festb
LANG: pascal
}
PROGRAM FESTB;
USES CRT;
VAR I,J,P1,M,N,S1,K,S2,E,L: INTEGER;
SS,PP: LONGINT;
A,B,S: ARRAY[1..1000] OF INTEGER;
BEGIN
CLRSCR;
S1:=0;
SS:=100000;
READLN(M,N);
FOR I:=1 TO M DO
READLN(A[I],B[I]);
FOR I:=1 TO N DO
READLN(S[I]);
WRITELN;
S1:=0;
K:=0;
FOR L:=1 TO N DO  BEGIN
FOR I:=-1000 TO 1000 DO BEGIN
S1:=0;
FOR J:=1 TO M DO
BEGIN
PP:=A[J]-I;
S1:=(ABS(PP)*B[J]+S1);
S2:=S[L]-S1;
END;
IF ABS(S2)<SS THEN
BEGIN
SS:=ABS(S2);
E:=I;
END;
END;
WRITELN(E,' ',SS);
END;
READLN;
END.