{$WRITEABLECONST OFF}

program TestSetConstants;

type

TCOLORS = (a1, b1, c1, d1, e1, f1, g1, i1, j1, k1, l1, m1,

a2, b2, c2, d2, e2, f2, g2, i2, j2, k2, l2, m2,

a3, b3, c3, d3, e3, f3, g3, i3, j3, k3, l3, m3,

a4, b4, c4, d4, e4, f4, g4, i4, j4, k4, l4, m4,

a5, b5, c5, d5, e5, f5, g5, i5, j5, k5, l5, m5,

a6, b6, c6, d6, e6, f6, g6, i6, j6, k6, l6, m6);

TCOLORS_SET = set of TCOLORS;

const

RGB : TCOLORS_SET = [a1, b4, c6];

type

TCASES = (a11, b11, c11, d11, e11, f11, g11, i11, j11, k11, l11, m11,

a12, b12, c12, d12, e12, f12, g12, i12, j12, k12, l12, m12,

a13, b13, c13, d13, e13, f13, g13, i13, j13, k13, l13, m13,

a14, b14, c14, d14, e14, f14, g14, i14, j14, k14, l14, m14,

a15, b15, c15, d15, e15, f15, g15, i15, j15, k15, l15, m15,

a16, b16, c16, d16, e16, f16, g16, i16, j16, k16, l16, m16);

const

SET2 = [a11, b14, c16];

var

PRIMARY_COLORS : TCOLORS_SET absolute RGB;

var

typed : TCOLORS;

untyped : TCASES;

begin

if typed in RGB then ;

if untyped in SET2 then ;

end.