Вывод подмножеств

Задание:
Напишите программу, которая выводит все подмножества множества {a, b, c, d}

Решение:
Был выбран язык Delphi/Object Pascal из-за наличия встроенной работы с множествами.


1) Код "в лоб":

program Sets;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.Classes;

type
  TSet = set of (a, b, c, d);

var
  I: Byte;
  SetX: TSet;

begin
  for I := 0 to 15 do
  begin
    SetX := TSet(I);
    write('{');
    if a in SetX then
      write('A');
    if b in SetX then
      write('B');
    if c in SetX then
      write('C');
    if d in SetX then
      write('D');
    writeln('}');
  end;

  readln;
end.

Вывод:

{}
{A}
{B}
{AB}
{C}
{AC}
{BC}
{ABC}
{D}
{AD}
{BD}
{ABD}
{CD}
{ACD}
{BCD}
{ABCD}

Недостаток:
Плохое форматирование.


2) Код использующий операции над множествами для улучшенного вывода:

program Sets;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.Classes;

type
  TSet = set of (a, b, c, d);

var
  I: Byte;
  SetX: TSet;

begin
  for I := 0 to 15 do
  begin
    SetX := TSet(I);
    write('{');
    if a in SetX then
      if SetX - [a] = [] then write('A') else write('A, ');
    if b in SetX then
      if SetX - [a, b] = [] then write('B') else write('B, ');
    if c in SetX then
      if SetX - [a, b, c] = [] then write('C') else write('C, ');
    if d in SetX then
      write('D');
    writeln('}');
  end;

  readln;
end.

Вывод: