program reuniune;
type multime=set of 0..255;
var A, B, C: multime;
i, n, num: integer;
begin
write('introdu nr de elemente a multimii A, n= '); read(n);
writeln(' introdu ',n,' numere din domeniul 0..255 ');
for i:=1 to n do
begin
read(num); A:=A+[num];
end;
write('introdu nr de elemente a multimii B, m= '); read(n);
writeln(' introdu ',n,' numere din domeniul 0..255 ');
for i:=1 to n do
begin
read(num); B:=B+[num];
end;
C:=A+B;
writeln(' Elementele reuniunii : ');
for num:=0 to 255 do
if num in C then write(num, ' ');
writeln;
end.
