program sets;
type
mn=set of 0..9;
var
a,b,c:mn;
begin
a:=[1,2,3,4,5,6];
b:=[5,6,7,8,9,0];
writeln(a+b);
writeln(a*b);
write(a-a*b);
end.
program sets;
type
mn=set of 0..9;
var
a,b,c:mn;
begin
a:=[1,2,3,4,5,6];
b:=[5,6,7,8,9,0];
writeln(a+b);
writeln(a*b);
write(a-a*b);
end.