1reading symbolic information ...
2type Rec = record
3 charValue : char;
4 intValue : integer;
5 subrange : 0..1000;
6 realValue : real;
7end;
8var r : Rec;
9
10execution completed
11(charValue = 'c', intValue = 3, subrange = 10, realValue = 3.4)
123.4 10 3 'c'
13
14