Множества

[Deep-Minimal]

Здравствуйте, помогите пожалуйста с задачей:

Организовать ввод элементов трёх множеств A, B, C, D. Определить в программе является ли следующее утверждение верным: множество A содержится в множестве B, множества C содержатся в D, а множества B и D пересекаются. Привести значение элементов каждого множества для выполнения этого условия.

Вот листинг:

program laba7;
uses crt;
var
   A,B,C,D,E: set of byte;
   n,i,y: byte;
   x: boolean;
begin
     clrscr;
     A:=[];
     D:=[];
     C:=[];
     B:=[];
     writeln ('vvedite koli4estvo elementov mnogestva A');
     read(n);
     writeln('vvedite',n:3,'elementov A=');
     for i:=1 to n do
         begin
              readln(y);
              A:= A+[y];
         end;
         writeln ('vvedite koli4estvo elementov mnogestva B');
         read(n);
         writeln('vvedite',n:3,'elementov B=');
         for i:=1 to n do
             begin
                  readln(y);
                  B:= B+[y];
             end;
             writeln ('vvedite koli4estvo elementov mnogestva C');
             read(n);
             writeln('vvedite',n:3,'elementov C=');
             for i:=1 to n do
                 begin
                      readln(y);
                      C:= C+[y];
                 end;
                 writeln ('vvedite koli4estvo elementov mnogestva D');
                 read(n);
                 writeln('vvedite',n:3,'elementov D=');
                 for i:=1 to n do
                     begin
                          readln(y);
                          D:= D+[y];
                     end;
                     x:= (A<=B) and (C<=D) and (B*D<>[]);
                     writeln(x);
                     readkey;
end.

У меня такой вопрос, как вывести множества A,B,C,D?

[Serge_Bliznykov]

есть такой недостаток у реализации множеств в Pascal - единственный способ вывести содержимое множества - это перебирать всё возможные элементы и проверять их вхождение. если входит - то выводить:

WriteLn('Множество A: [')
for i:=0 to 255 do
   if i in A then Write(i:4);
WriteLn(']');

p.s. а лучше задать для множества тип и написать процедуру печати элементов множества:

type
  SetOfByte = set of byte; 

procedure WriteSet( const Zagolovok : string; MySet : SetOfByte);
var i : integer;
begin
WriteLn(Zagolovok);
for i:=0 to 255 do
   if i in MySet then Write(i:4);
WriteLn;
end;

var
   A,B,C,D,E: SetOfByte;
...
begin
   ...
   WriteSet('Множество A', A);
   WriteSet('Множество B', B);
...
end.

[Deep-Minimal]

Спасибо вам огромное!!!
Помогли!