Как определить множество включающее в себя др множества? - Free Pascal

Формулировка задачи:

Перечислительный тип имеет следующее определение: Type =nedelya (Voskr,Pon,vt,st,chet,pt,sb ); Определите множественный тип, включающий в себя множества ,из: А)названия любых дней недели;б)Названия рабочих дней недели. Код для вывода двух перечислений рабочий. А вот,что с ними делать,не пойму.
Program HELLO;
 
uses crt;
type TWokday = (Monday,Tuesday,Wednesday,Thursday,Friday);
  type Tweekend  =(Saturday,Sunday);
var
    Wokday : set of TWokday;
    i       : TWokday;
    weekend:set of Tweekend;
    j:Tweekend;
 
    begin
    clrscr;//Очищаем экран
    for i := Low(Twokday) to High(Twokday) do
    Writeln('Рабочие дни недели  ',i, ' ');
      Writeln();
       for j := Low(Tweekend) to High(Tweekend) do
    Writeln('Выходные дни недели  ',j, ' ');
     Readln;
end.

Код к задаче: «Как определить множество включающее в себя др множества? - Free Pascal»

textual
//Перечислительный тип имеет следующее определение:
Type  nedelya=(Voskr,Pon,vt,st,chet,pt,sb );
//Определите множественный тип, включающий в себя множества ,из:
//А)названия любых дней недели;
Type mn_vse= set of nedelya;
//б)Названия рабочих дней недели
Type mn_rab= set of Pon..pt;

8   голосов, оценка 4.125 из 5


СОХРАНИТЬ ССЫЛКУ