program PascalGuru;
var X,Y:array[1..50] of integer;
    n1,n2,i,j,kol:integer;
    b:boolean;
 
begin
writeln ('Vvedite razmer massiva X:');  read (n1);
writeln ('Vvedite massiv X:');
for i:=1 to n1 do begin write ('X[',i,']='); readln (X[i]); end;
 
writeln ('Vvedite razmer dopolnitelinogo massiva Y:');  read (n2);
writeln ('Vvedite massiv Y:');
for i:=1 to n2 do begin write ('Y[',i,']='); readln (Y[i]); end;
 
write ('Vot vvedennyy vami massiv X: ');
for i:=1 to n1 do write (X[i],'  ');   writeln;
 
write ('Vot razresennye el-ty (massiv Y): ');
for i:=1 to n2 do write (Y[i],'  ');   writeln;
 
kol:=0;
for i:=1 to n1 do
    begin
    b:=false;
     for j:=1 to n2 do
     if X[i]=Y[j] then b:=true;
    if b then inc(kol);
    end;
 
writeln('Otvet: ',kol);
 
readln;
end.