Ось код  на Паскалі,  а на C++ неполучається чомусь.
program setka;
uses
  crt;
const
  slovo = 'exit';
var
  i, k, n: integer; 
  a: set of integer;
  b: set of integer;
  c: set of integer;
  y: set of integer ;
begin
  
  textbackground(15);
  clrscr;
  textcolor(0);
  
  writeln('ââåäiòü êiëüêiñòü åëåìåíòiâ 1-¿ ìíîæèíè');
  readln(n);
  for i := 1 to n do 
  begin
    clrscr;
    writeln(i, '-é åëåìåíò');
    readln(k);
    a := a + [k];
    clrscr;
  end;
  
  writeln('ââåäiòü êiëüêiñòü åëåìåíòiâ 2-¿ ìíîæèíè');
  readln(n);
  for i := 1 to n do 
  begin
    clrscr;
    writeln(i, '-é åëåìåíò');
    readln(k);
    b := b + [k];
    clrscr;
  end;
  
  writeln('ââåäiòü êiëüêiñòü åëåìåíòiâ 3-¿ ìíîæèíè');
  readln(n);
  for i := 1 to n do 
  begin
    clrscr;
    writeln(i, '-é åëåìåíò');
    readln(k);
    c := c + [k];
    clrscr;
  end;
  
  writeln;
  writeln('A -', a:4);
  writeln('B -', b:4);
  writeln('C -', c:4);
  writeln;
  
  y := c * (a * b * c);
  writeln('1 - ', y);
  writeln;
  
  y := a * c - b;
  writeln('2 - ', y);
  writeln;
  
  y := c - [2];
  writeln('3 - ', y);
  writeln;
  
end.