var
a:array[1..15000] of integer;
i:integer;
m,n,k:integer;
b:array[1..1000000] of longint;
j:integer;
Begin
k:=0;
readln(n);
for i:=1 to n do read(a[i]);
readln(m);
for j:=1 to m do readln(b[j]);
for i:=1 to n do
for j:=1 to m do
if b[j]=a[i] then k:=k+1;
writeln(k);
end.

2
22
22
4
22
22
22
22
Because your answer is 8?

Thanks...
:)