Определить какие числа встречаются в обоих множествах

uses crt;
type
m1 = set of 0..30 ;
m2 = set of 0..15 ;
var i,x1,x2:integer; mn1:m1; mn2:m2;
begin
randomize;mn1:=[];mn2:=[];
for i:=1 to 10 do begin
x1:=random(31);
Include(mn1,x1);
end;
for i:=1 to 5 do begin
x2:=random(16);
Include(mn2,x1);
end;
end.

uses crt;
var i,x1,x2:integer; mn1:set of 0..30 ; mn2:set of 0..15 ;
begin
randomize;
for i:=1 to 10 do begin
x1:=random(31);
write(x1,' ');
Include(mn1,x1);
end;writeln;
for i:=1 to 5 do begin
x2:=random(16);
write(x2,' ');
Include(mn2,x1);
end;writeln;
for i:=1 to 30 do begin
if (i in mn2)and(i in mn1) then
writeln(i); end;
end.

uses crt;
var i,x:integer;
    mn1,mn2,m:set of 0..30;
begin
randomize;
mn1:=[];
for i:=1 to 10 do
 begin
  repeat
   x:=random(31);
  until not(x in mn1);
  mn1:=mn1+[x];
 end;
mn2:=[];
for i:=1 to 5 do
 begin
  repeat
   x:=random(16);
  until not(x in mn2);
  mn2:=mn2+[x];
 end;
writeln('1 множество');
for i:=0 to 30 do
if i in mn1 then write(i:3);
writeln;
writeln('2 множество');
for i:=0 to 15 do
if i in mn2 then write(i:3);
writeln;
m:=mn1*mn2;
writeln('Пересечение множеств');
if m=[] then write('Множество пустое')
else
for i:=0 to 15 do
if i in m then write(i:3);
end.