Построить булеан этого множества и декартовое произведение

[werovulv]

Доброго времени суток. Я больше на Си выполняю задания, а вот по этому предмету сказали именно на паскале надо выполнить, если кто сможет помогите! Вот задание:

Дано множество мощностью n. Построить булеан этого множества и декартовое произведение AxA

[Poma][a]

не понял....
Множество наверно = массив
а построить булеан этого множества, хм булен это логическая операция, но с применением к целым числам даёт целое число.. так что ли? а декартовое произведение слышу в первые, ща в вику загляну...
вот кажись :

Прямое или декартово произведение — множество, элементами которого являются всевозможные упорядоченные пары элементов исходных двух множеств. Данное понятие употребляется не только в теории множеств, но также в алгебре, топологии и прочих разделах математики благодаря тому, что прямое произведение часто наследует структуры (алгебраические, топологические и т. д.), существующие на перемножаемых множествах.

тоесть загнать х и у в один массив и отсоритировать?

[werovulv]

множество да массив, получается что так, и булеан найти, на паскалке я даж не знаю как это описать...

[Poma][a]

чет я с булен не в ту степь ушел...

Для тех кто не знает что такое булеан.
К примеру у на есть множество {1,2,3,4}, его булеаном будет {1},{2},{3},{4},{1,2},{1,3},{1,4},{ 2,3},{2,4},{3,4}{1,2,3},{1,3,4},{2, 3,4},{1,2, 3,4}

вот есть код на си если переделаешь то все ок :

static IEnumerable<IEnumerable<T>> PowerSet<T>(IEnumerable<T> initialSet)
{
        var set = new List<IEnumerable<T>>() { Enumerable.Empty<T>() };
        return initialSet.AsParallel().Aggregate((IEnumerable<IEnumerable<T>>)set, (x, y) => x.Concat(x.Select(z => z.Concat(new List<T>() { y }))));
}
 
 
static void Main(string[] args)
{
        var set = Enumerable.Range(1, 4);
        var powerset = PowerSet(set);
 
        foreach (var subset in powerset) {
                foreach (var element in subset)
                        Console.Write("{0} ", element);
                Console.WriteLine();
        }

З.Ы. тут только булен

[werovulv]

ахах спасибо, что-нить придумаю я надеюсь)