type
mySet = set of byte;
Var
set1: myset;
Begin
set1 := [1,2];
writeln(set1);
readln;
end.

运行就出错,为什么不能输出集合set1啊,还是集合本来就不能输出的吗?

mySet = set of [1,2]
这样就声名了一个两个元素的数据集合