Напишите программу которая выводит на экран все подмножества множества {1, 2, 3, 4}

Var

a, b, c, d : integer;

Begin

for a:=1 to 4 do

for b:=a+1 to 4 do

for c:=b+1 to 4 do

for d:=c+1 to 4 do

writeln (a:3, b:3, c:3, d:3) ;

for a:=1 to 4 do

for b:=a+1 to 4 do

for c:=b+1 to 4 do

writeln (a:3, b:3, c:3) ;

for a:=1 to 4 do

for b:=a+1 to 4 do

writeln (a:3, b:3) ;

for a:=1 to 4 do

writeln (a:3) ;

readln;

End.