program pingguozaitaotao;

var ti:array[1..2000] of int64;

tj:array[1..2000] of int64;

c,i,j,a,b:integer;

begin

c:=0;

read(a);

read(b);

for i:=1 to a do readln(ti[i]);

for j:=a+1 to a+b do readln(tj[j]);

for j:=a+1 to a+b do

begin

if tj[j]=tj[j] then inc(c);

writeln(c);

end.

哪位高手说一下,...........