VAR n,i,j,m,s1,max,s2,s:int64; a,b,a1,b1:array[1..200001] of int64;
Begin
Readln(n);
for i:=1 to n do
Begin
Read(a[i]);
end;
Readln;
for i:=1 to n do
Begin
Read(b[i]);
end;
Readln;
Readln(m);
for i:=1 to m do
Begin
Readln(a1[i]);
end;


for i:=1 to m do
Begin
Readln(b1[i]);
end;

for i:=1 to n do
Begin
s:=s + a[i];
end;

for i:=1 to m do
Begin

s2:=0;
for j:=1 to n do
Begin
if (a[j] <= b1[i] + a1[i]) and (a[j] >= b1[i] - a1[i]) then s2:=s2 + a[j];
end;
if (s2 > max) then max:=s2;
end;
s2:=0;
Writeln(s - s2);
Readln;
END.