{$codepage UTF8} TYPE Numeros = (Cero,Uno,Dos,Tres,Cuatro); VAR N01 : Numeros; a : byte; BEGIN N01:=Cero; a:=Ord(N01); Writeln(a); readln END.