Program P16;
 { Tipul de date Studii }
type Studii=(Elementare, Medii, Superioare);
var i : integer; { număr de ordine }
begin
 i:=ord(Elementare); writeln(i);
 i:=ord(Medii); writeln(i);
 i:=ord(Superioare); writeln(i);
end.