11 lines
255 B
ObjectPascal
11 lines
255 B
ObjectPascal
program settest;
|
|
type myset = set of (alpha, beta, gamma, delta);
|
|
var a,b:myset;
|
|
begin
|
|
a := [alpha, gamma];
|
|
b := [alpha, gamma, delta];
|
|
writeln (a <= b);
|
|
writeln (a >= b);
|
|
writeln (b >= a);
|
|
writeln ((b - [alpha, gamma]) >= a);
|
|
end.
|