1*44155Sbosticprogram consttest (input, output); 2*44155Sbosticconst 3*44155Sbostic PI = 3.14159; 4*44155Sbostic N = 10; 5*44155Sbostic MESSAGE = 'this is a test'; 6*44155Sbostic CH = 'x'; 7*44155Sbostictype 8*44155Sbostic Color = (RED, BLUE, GREEN); 9*44155Sbostic 10*44155Sbosticprocedure p ; 11*44155Sbosticconst 12*44155Sbostic R = RED; 13*44155Sbostictype 14*44155Sbostic T = integer; 15*44155Sbosticvar i : integer; 16*44155Sbosticbegin 17*44155Sbosticend; 18*44155Sbostic 19*44155Sbosticbegin 20*44155Sbosticend. 21