program c3;
var n,m,x,y,i,j,s:integer;
r:real;
a:array [0..99] of array [0..1] of byte;
begin
readln(n);
s:=0;
f:=0;
for i:=0 to 99 do begin
    a[i,0]:=0; a[i,1]:=0; end;
for i:=0 to n-1 do
 readln(a[i,0],a[i,1]);
 readln(m);
 for i:=0 to m-1 do begin
  readln(x,y);
  r:=sqrt(x*x+y*y);
  for j:=0 to n-1 do
  begin
  if (r<a[0,0]) then
  begin
    s:=s+a[0,1];
    break;
  end;
   if (r>a[j,0]) and (r<a[j+1,0])then
   begin
    s:=s+a[j+1,1];
    break;
   end;
 end;end;
writeln(s);
end.