|
|
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.