|
|
1.1 root 1: module main;
2: const
3: PI = 3.14159;
4: N = 10;
5: MESSAGE = "this is a test";
6: CH = 'x';
7: S = {1, 3, 5};
8: B = true;
9: type
10: Color = (RED, BLUE, GREEN);
11: procedure p ();
12: const
13: R = RED;
14: type
15: T = integer;
16: var i : integer;
17: begin
18: end p;
19:
20: begin
21: end main.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.