Паскаль. Множества.

[Ria]

нужна помащь ваша очень

1) Вычислить значения выражений:
а) [1,3,5]-[2,4];
б) [1..6]*[3..8];
в) []+[4];
г) []*[4];
д) [2,4]+[1..5].

2). Type
WeekDays = (Mon,Tue,Wens,Thi,Fr,Sut,Sun);
Описать множественный тип, включающий в себя множества из:
а) названий любых дней недели;
б) названий рабочих дней недели.

[Niro]

1)

   var rez: set of 0..9;
   i: byte;
BEGIN
   clrscr;
   writeln('operacia [1,3,5]-[2,4]');
   rez:=[1,3,5]-[2,4];
   for i:=0 to 255 do
     if (ord(i) in rez) then write(ord(i),' ');
   writeln;
   rez:=[1..6]*[3..8];
   for i:=0 to 255 do
     if (ord(i) in rez) then write(ord(i),' ');
   writeln;
   rez:=[]+[4];
   for i:=0 to 255 do
     if (ord(i) in rez) then write(ord(i),' ');
   writeln;
   rez:=[]*[4];
   for i:=0 to 255 do
     if (ord(i) in rez) then write(ord(i),' ');
   writeln;
   rez:=[2,4]+[1..5];
   for i:=0 to 255 do
     if (ord(i) in rez) then write(ord(i),' ');
   readln;
END.

Только добавьте сами строчки с проводимыми операциями, как эта
writeln('operacia [1,3,5]-[2,4]');

[Ria]

спасиибоо))!!!