program test; const A = 0; B = 1; C = 2; type D = A..C; begin end.