freepascal.compiler/tests/tbs/tb0024.pp

{ Old file: tbs0028.pp }
{  type enumtype = (a); writeln(ord(a)); }

type
   enumtype = (a);

var
   e : enumtype;

begin
   writeln(ord(e));
end.