program x;
type
  TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble, ssTouch, ssPen, ssCommand, ssHorizontal);
var
  state: SmallInt;
begin
  for state := Ord(Low(TShiftState)) to Ord(High(TShiftState)) do
  begin
    case state of
      Ord(ssShift): WriteLn('Shift');
      Ord(ssAlt): WriteLn('Alt');
      Ord(ssCtrl): WriteLn('Ctrl');
      Ord(ssLeft): WriteLn('Left');
      Ord(ssRight): WriteLn('Right');
      Ord(ssMiddle): WriteLn('Middle');
      Ord(ssDouble): WriteLn('Double');
      Ord(ssTouch): WriteLn('Touch');
      Ord(ssPen): WriteLn('Pen');
      Ord(ssCommand): WriteLn('Command');
      Ord(ssHorizontal): WriteLn('Horizontal');
    end;
  end;
end.