Операции над множествами

[olga_v95]

Задано 5 множеств A, B, C, D, E перечисляемого типа. Получить множество Х, которое вычисляется по формуле 1, eсли условие выполняется, и по формуле 2, усли условие не выполняется.
Условие: (A*C)=(E+D)
Формула 1: A+B\C\D\E
Формула 2: A\B\C*D*E

[alexander13]

   if ((A * C) = (E + D)) then
        X := A + B - C - D - E
   else
        X := A - B  - (C * D * E);

Например, так

var
   A, B, C, D, E, X : set of byte;
   i : byte;

BEGIN
   A := [1, 2, 3, 4, 5, 6, 7, 8, 9, 10];
   B := [2, 4, 11];
   C := [1, 3, 5];
   D := [1];
   E := [3];

   if ((A * C) = (E + D)) then
        X := A + B - C - D - E
   else
        X := A - B  - (C * D * E);

   for i := 1 to 11 do
        if (i in X) then
                write(i, '; ');
   readln;
END.

Upd. Не знаю, правда, как Вам поможет полностью написанный код, если Вы не понимаете принципов... Я бы не рекомендовал использовать то, что я написал. Вдруг спросят, "почему от 1 до 11?" =)

[olga_v95]

Спасибо за проделанную работу.
Не понимаю я другого принципа: как сделать, чтобы пользователь мог сам ввести эти множества.

[alexander13]

В чем проблема?

procedure set_in(var A : mySet);
var
   i : byte;
begin
//Какой-нибудь цикл
   ...
      readln(i);
      A := A + [i];
   ...
end;