uses crt;
var n,m,i,j,s,max:longint; a,b:array[1..10000000]of longint;
function kt(k:longint):boolean;
var i:longint;
begin
kt:=true;
for i:=1 to m do if a[k]=b[i] then kt:=false;
end;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
write('Nhap m: ');readln(m);
for i:=1 to m do
begin
write('b[',i,']=');readln(b[i]);
end;
for i:=1 to n do
begin
s:=0; j:=i;
while (j<=n)and(kt(i)) do
begin
inc(s,a[j]);
inc(j);
end;
if s>max then max:=s;
end;
writeln(max);
readln
end.
