Program P86;
 { Date de tip MultimeIndicii }
type Indice=1..10;
     MultimeIndicii=set of Indice;
var A, B, C : MultimeIndicii;
          i : integer;
begin
 A:=[1..5, 8];     { A conţine 1, 2, 3, 4, 5, 8 }
 B:=[1..3, 9, 10]; { B conţine 1, 2, 3, 9, 10 }
 C:=[];            { C este o mulţime vidă }

 C:=A+B;           { C conţine 1, 2, 3, 4, 5, 8, 9, 10 }
 writeln('Reuniune');
 for i:=1 to 10 do
   if i in C then write(i:3);
 writeln;

 C:=A*B;           { C conţine 1, 2, 3 }
 writeln('Intersecţie');
 for i:=1 to 10 do
   if i in C then write(i:3);
 writeln;

 C:=A-B;           { C conţine 4, 5, 8 }
 writeln('Diferenţa');
 for i:=1 to 10 do
   if i in C then write(i:3);
 writeln;

 readln;
end.