1program consttest (input, output);
2const
3 PI = 3.14159;
4 N = 10;
5 MESSAGE = 'this is a test';
6 CH = 'x';
7type
8 Color = (RED, BLUE, GREEN);
9
10procedure p ;
11const
12 R = RED;
13type
14 T = integer;
15var i : integer;
16begin
17end;
18
19begin
20end.
21