{
TASK: FESTB
LANG: PASCAL
}

Program FESTB;
 Var A, B, S, Sum: Array[1..100] of Longint;
     M, N, I, J, Min, Max, X, D: Longint;
 Begin
  ReadLn(M, N);
  For I := 1 to M do Begin
                      ReadLn(A[I], B[I]);
                      If A[I] > Max then Max := A[I];
                      If A[I] < Min then Min := A[I];
                     End;
  For I := 1 to N do ReadLn(S[I]);


 End.
