program TimPhanTuGiongNhau;
const
MAX = 100;
type
Mang = array[1..MAX] of integer;

procedure NhapMang(var mang: Mang; var n: integer);
var
i, j, phan_tu: integer;
da_co: boolean;
begin
write('Nhap so phan tu cua mang: ');
readln(n);

writeln('Nhap cac phan tu cua mang:');
for i := 1 to n do
begin
readln(phan_tu);
da_co := false;


for j := 1 to i - 1 do
begin
if mang[j] = phan_tu then
begin
da_co := true;
break;
end;
end;


if not da_co then
mang[i] := phan_tu
else
begin
writeln('Phan tu da ton tai trong mang. Nhap lai.');
i := i - 1;
end;
end;
end;

procedure TimPhanTuGiongNhau(mangA, mangB: Mang; nA, nB: integer);
var
i, j: integer;
begin
writeln('Cac phan tu giong nhau trong hai tap hop la:');
for i := 1 to nA do
begin
for j := 1 to nB do
begin
if (mangA[i] = mangB[j]) then
begin
writeln(mangA[i]);
break;
end;
end;
end;
end;

var
A, B: Mang;
nA, nB: integer;
begin

NhapMang(A, nA);

NhapMang(B, nB);

TimPhanTuGiongNhau(A, B, nA, nB);

readln;
end.