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