1*44158Sbosticprogram enumtest (input, output); 2*44158Sbostictype 3*44158Sbostic Color = (RED, GREEN, BLUE); 4*44158Sbostic 5*44158Sbosticvar c1, c2 : Color; 6*44158Sbostic 7*44158Sbosticprocedure P (c : Color); 8*44158Sbosticbegin 9*44158Sbostic writeln('c = ', ord(c):1); 10*44158Sbosticend; 11*44158Sbostic 12*44158Sbosticbegin 13*44158Sbostic c1 := BLUE; 14*44158Sbostic c2 := GREEN; 15*44158Sbostic P(RED); 16*44158Sbosticend. 17