T4:暴力,比赛打少了个=号所以没a。
var
m,i,j,n,s,t,tot:longint;
s1:array[0..60]of string;
b:array[0..60]of boolean;
s2:array[0..10010]of string;
begin
readln(n);
for i:=1 to n do
begin
readln(s1[i]);
end;
readln(m);
for i:=1 to m do
begin
readln(s2[i]);
end;
for i:=1 to m do
begin
for j:=1 to n do
begin
if (s2[i]=s1[j]) then
begin
if b[j]=false then
begin
inc(tot);
if tot>=n/2 then
begin
writeln(i);
halt;
end;
b[j]:=true;
end;
break;
end;
end;
end;
end.