Program P17;
 { Variabile de tip enumerare }
type Culoare=(Galben, Verde, Albastru, Violet);
     Raspuns=(Nu, Da);
var x : Culoare; { variabilă de tip Culoare }
    y : Raspuns; { variabilă de tip Raspuns }
    i : integer; { număr de ordine }
begin
 x:=Albastru;
 i:=ord(x); writeln(i);
 y:=Nu;
 i:=ord(y); writeln(i);
end.