Помогите с множествами

[HOR666]

Здраствуйте помогите пожалуйста с множествами на Pascal. Итак задача:

Даны следующие описания переменных:
type день недели=(Пн,Вт,Ср,Чт,Пн,Сб,Вс);
Описать множественный тип, включающий в себя множества из:
1. названий любых дней недели;
2. названий рабочих дней недели.

[Rusl92]

помоему, тебе просто нужно создать третье множество и обьединить два первых?

[Stilet]

Вот так что ли?

type a=(ponedelok,vtornik,sreda,chetvegr,patniza,sabbath,week);
var rab,vyh: set of a;
begin
 rab:=[ponedelok,vtornik,sreda,chetvegr,patniza];
 vyh:=[sabbath,week]
end;

[OCTAGRAM]

type b=ponedelok .. patniza;