Из данных множеств сформировать соответственно подмножества чисел, кратных 3, и четных чисел

uses crt;
type mnz=set of byte;
procedure sozd(var a:mnz);
var i,x:byte;
begin
a:=[];
for i:=1 to 10 do
 begin
  repeat
   x:=100+random(101);
  until not(x in a);
  a:=a+[x];
 end;
end;
procedure Print(a:mnz; s:string);
var i:byte;
begin
writeln('Множество ',s);
for i:=100 to 200 do
if i in a then write(i:4);
writeln;
end;
var m,n,m1,n1,p:mnz;
    i,k:byte;
begin
clrscr;
randomize;
Sozd(m);
Print(m,'M');
Sozd(n);
Print(n,'N');
m1:=[];
for i:=100 to 200 do
if((i in m)or(i in n))and(i mod 3=0)then
m1:=m1+[i];
Print(m1,'M1');
n1:=[];
for i:=100 to 200 do
if((i in m)or(i in n))and(i mod 2=0)then
n1:=n1+[i];
Print(n1,'N1');
p:=m1*n1;
writeln('Множество P');
k:=0;
for i:=100 to 200 do
if i in p then
 begin
  write(i:4);
  k:=k+1;
 end;
writeln;
if p=[] then write('Множество пустое')
else write('Мощность множества=',k);
readln
end.

Var M,N,M1,N1,P:set of byte;
    i,t:byte;
Begin
    m:=[];n:=[];m1:=[];n1:=[];
    writeln('Множество M');
    For i:=1 to 10 do
     Begin
      t:=Random(101)+100;
      m:=m+[t];
      write(t:5);
     End;
   writeln;
   writeln('Множество N');
   For i:=1 to 10 do
     Begin
      t:=Random(101)+100;
      n:=n+[t];
      write(t:5);
     End;
   writeln;
   writeln('Множество M1');
   For i:=100 to 200 do
    if (i in m)and(i mod 3 = 0) then 
     Begin
      m1:=m1+[i];
      write(i:5);
     End;
    writeln;
    writeln('Множество n1');
    For i:=100 to 200 do
     if (i in n)and(i mod 2 = 0) then
      Begin
       n1:=n1+[i];
       write(i:5);
      End; 
    writeln;
    writeln('Мощность P');
    p:=m1*n1;
    For i:=100 to 200 do
     if i in p then write(i:5);
    readln;
End.

For i:=1 to 10 do
     Begin
      t:=Random(101)+100;
      m:=m+[t];
      write(t:5);
     End;

Var M,N,M1,N1,P:set of byte;
    i,t:byte;
Begin
    m:=[];n:=[];m1:=[];n1:=[];
    writeln('Множество M');
    For i:=1 to 10 do
     Begin
      Repeat
       t:=Random(101)+100;
      Until not (t in m);
      m:=m+[t];
      write(t:5);
     End;
   writeln;
   writeln('Множество N');
   For i:=1 to 10 do
     Begin
      Repeat
       t:=Random(101)+100;
      Until not (t in n);
      n:=n+[t];
      write(t:5);
     End;
   writeln;
   writeln('Множество M1');
   For i:=100 to 200 do
    if (i in m)and(i mod 3 = 0) then 
     Begin
      m1:=m1+[i];
      write(i:5);
     End;
    writeln;
    writeln('Множество n1');
    For i:=100 to 200 do
     if (i in n)and(i mod 2 = 0) then
      Begin
       n1:=n1+[i];
       write(i:5);
      End; 
    writeln;
    writeln('Мощность P');
    p:=m1*n1;
    For i:=100 to 200 do
     if i in p then write(i:5);
    readln;
End.