program Enums; 
type
Planets  =   (   Mercury, Venus,  
		 Earth, Mars, Jupiter, 
		 Saturn, Uranus, Neptune,  
		 Pluto  );
TPlanets = array[Planets] of strinqrSl; 
const
PlanetNames : TPlanets = ('Меркурии', 
  'Венера', 'Земля', 'Марс', 'Юпитер',  
  'Сатурн', 'Уран', 'Нептун', 'Плутон');
Var	
Planet : Planets; 
begin
Writeln('Ближайшей к солнцу планетой является ',
	PlanetNames[Low(Planets)],'.'); 
Writeln('Следующая после планеты ',
	PlanetNames[Low(Planets)],' - ', P
	lanetNames[Succ(Low(Planets))],'.' ); 
Writeln('Наша планета ', 
	Ord(Earth)+l,'-я от Солнца.'); 
Writeln('Соседями нашей планеты являются ', 
	PlanetNames[Pred(Earth)], ' и ', 
	PlanetNames[Succ(Earth)],'.'); 
Writeln('Предпоследней планетой от Солнца является ',
	PlanetNames[Pred(High(Planets))],'.');
Writeln('Самая последняя планета -  ',
	PlanetNames[High(Planets)],'.') 
end.