const
n=10;
var
i,j,k:integer;
a:array[1..n] of integer;
b:array[1..n] of integer;
c:array[1..n] of integer;
begin
for i:=1 to n do
begin
a[i]:=random(10);
write(' ',a[i]:3);
end;
writeln();
for i:=1 to n do
begin
b[i]:=random(10);
write(' ',b[i]:3);
end;
writeln();
for i:=1 to n do
begin
c[i]:=random(10);
write(' ',c[i]:3);
end;
writeln();
writeln('-------');
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
if (a[i]=b[j])and(b[j]=c[k]) then writeln(a[i]);
writeln('-------');
end.