Ось код на Паскалі, а на 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.