type
  TSeason = (Summer, Fall, Winter, Spring);

var
  WinterValue: TSeason;
  BaseValue: Integer;
begin
  WinterValue := Winter;
  BaseValue := Ord(WinterValue);
  //baseValue is 2

  WriteLn('baseValue is ', BaseValue);
end.