Разработка программ, которая отображает на экране все подмножества множества {'A', 'B', 'C', 'D'}

var combination,bit:integer;
begin
for combination:=0 to 15 do begin
for bit:=0 to 3 do
if combination and (1 shl bit) <> 0 then
write(chr(65+bit));
writeln;
end;
end.

очень хотелось бы увидеть, как ты это будешь сдавать.