program Multimi1;
type continente=(Europa,Asia,Africa,AmericaDeNord,AmericaDeSud,Australia,Antarctida);
sex=(Barbat,Femeie);
PuncteCardinale=(Nord,Sud,Est,Vest);
Etaje=(Unu,Doi,Trei,Patru,Cinci);
var i:byte;
BEGIN
i:=ord(Europa);writeln('Europa':15,i:2);
i:=ord(Asia);writeln('Asia':15,i:2);
i:=ord(Africa);writeln('Africa':15,i:2);
i:=ord(AmericaDeNord);writeln('AmericaDeNord':15,i:2);
i:=ord(AmericaDeSud);writeln('AmericaDeSud':15,i:2);
i:=ord(Australia);writeln('Australia':15,i:2);
i:=ord(Antarctida);writeln('Antarctida':15,i:2);
readln;
i:=ord(Barbat);writeln('Barbat':15,i:2);
i:=ord(Femeie);writeln('Femeie':15,i:2);
readln;
i:=ord(Nord);writeln('Nord':15,i:2);
i:=ord(Sud);writeln('Sud':15,i:2);
i:=ord(Est);writeln('Est':15,i:2);
i:=ord(Vest);writeln('Vest':15,i:2);
readln;
i:=ord(Unu);writeln('Unu':15,i:2);
i:=ord(Doi);writeln('Doi':15,i:2);
i:=ord(Trei);writeln('Trei':15,i:2);
i:=ord(Patru);writeln('Patru':15,i:2);
i:=ord(Cinci);writeln('Cinci':15,i:2);
readln;

END.

<< Назад