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