|
|
1.1 root 1: module main;
2: type
3: Rec = record
4: charValue : char;
5: intValue : integer;
6: subrange : [0..1000];
7: realValue : real;
8: end;
9: var
10: r : Rec;
11: begin
12: r.charValue := 'c';
13: r.intValue := 3;
14: r.subrange := 10;
15: r.realValue := 3.4;
16: end main.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.