program EnumExample(output);
type
TSeassons = (Spring, Summer, Autumn, Winter);
var
seasson: TSeassons;
begin
Writeln('seasson --> Ord(seasson)');
Writeln('------------------------');
for seasson := Spring to Winter do
Writeln(seasson, ' --> ', Ord(seasson));
end.