Nomor Urut menggunakan Array

type
 carnivora=(Singa,Puma,Macan,Beruang,Serigala,Musang,Kucing);

var
 bb: carnivora;
 x:array[singa..kucing] of byte;





begin
 for bb:=singa to beruang do
  writeln(ORD(bb));
  writeln;
  for bb:=singa to beruang do
begin
  x[bb]:=ORD(bb)+1;
  writeln(x[bb]);
end;
end.