REUNIUNEA A 2 MULTIMI IN TURBO PASCAL
DE EXEMPLU PENTRU A{2,4,6,8} SI B{4,8,12} SA OBTIN C{2,4,6,8,12}
AM NEVOIE URGENT

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.