1program test; 2 3uses typinfo; 4 5Type 6 E1 = (en1,en2,en3,en4,en5); 7 E2 = en3..en5; 8begin 9 if (GetEnumValue(TypeInfo(E1),'en5') <> 4) then 10 halt(1); 11 if (GetEnumValue(TypeInfo(E2),'en5') <> 4) then 12 halt(1); 13 writeln('ok'); 14end. 15