Напишите программу которая выводит на экран все подмножества множества {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.