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.