1*44134Sbosticmodule main; 2*44134Sbostictype 3*44134Sbostic ElementType = (CHAR, INT, REAL); 4*44134Sbostic VR = record 5*44134Sbostic case tag : ElementType of 6*44134Sbostic CHAR: 7*44134Sbostic charValue : char;| 8*44134Sbostic INT: 9*44134Sbostic intValue : integer;| 10*44134Sbostic REAL: 11*44134Sbostic realValue : real; 12*44134Sbostic end; 13*44134Sbostic end; 14*44134Sbosticvar 15*44134Sbostic vr : VR; 16*44134Sbosticbegin 17*44134Sbostic vr.tag := CHAR; 18*44134Sbostic vr.charValue := 'c'; 19*44134Sbostic vr.tag := INT; 20*44134Sbostic vr.intValue := 3; 21*44134Sbostic vr.tag := REAL; 22*44134Sbostic vr.realValue := 3.4; 23*44134Sbosticend main. 24