program lab;
Uses crt;
TYPE SetType = set of char;
const
Length = 255;
var
m1, m2 : array [1..Length] of Char;
i, a :  Integer;
Myset:Settype;
Begin
ClrScr;
Randomize;
For i:=1 to Length do
 m1[i]:=Chr(32+Random(255-32));

Myset:=['0'..'9'];
a:=1;
For i:=1 to Length do
 if m1[i] in Myset then
   Begin
    m2[a] := m1[i];
    Inc(a);
   End;

writeln('Множество:');
For i:=1 to Length do
Write(m1[i],' ');

writeln;

writeln('В множество входят следующие цифры от 0 до 9:');

For i:=1 to a-1 do
Write(m2[i],' ');
writeln;
writeln('Программа закончена , нажмите Enter.');
ReadLn;
End.

Program lab;
Uses Crt;
Type
Comps = (i386, i486, Apple, Pentium, Acer, Macintosh);
TComps = set of Comps;
Const
All_comps : TComps = [i386, i486, Apple, Pentium, Acer, Macintosh];
Inst_1 : TComps = [i386,Acer, Pentium];
Inst_2 : TComps = [Acer, Pentium];
Inst_3 : TComps = [Apple, Pentium ];
Inst_4 : TComps = [Pentium, Acer, i486];
Inst_5 : TComps = [i386,Acer, Pentium];
Inst_6 : TComps = [Acer, Pentium];
Inst_7 : TComps = [Apple, Pentium ];
Inst_8 : TComps = [Pentium, Acer, i486];
Inst_9 : TComps = [Apple, Pentium ];
Inst_10 : TComps = [Pentium, Acer, i486];
Var
All_Comps_In,
NotInst_1, NotInst_2, NotInst_3, NotInst_4,
NotInst_5, NotInst_6, NotInst_7, NotInst_8,
NotInst_9, NotInst_10  : TComps;
Procedure OutPut(s : TComps);
Begin
If i386 in s then Write('i386 ');
If i486 in s then Write('i486 ');
If Pentium in s then Write('Pentium ');
If Apple in s then Write('Apple ');
If Acer in s then Write('Acer ');
If Macintosh in s then Write('Macintosh ');
End;
Begin
ClrScr;
All_Comps_In := Inst_1 + Inst_2 + Inst_3 + Inst_4+Inst_5 + Inst_6 +
Inst_7 + Inst_8+Inst_9 + Inst_10;
Write('машины, которыми обеспечены все институты:');
NotInst_1 := All_Comps_In-Inst_1;
NotInst_2 := All_Comps_In-Inst_2;
NotInst_3 := All_Comps_In-Inst_3;
NotInst_4 := All_Comps_In-Inst_4;
NotInst_5 := All_Comps_In-Inst_5;
NotInst_6 := All_Comps_In-Inst_6;
NotInst_7 := All_Comps_In-Inst_7;
NotInst_8 := All_Comps_In-Inst_8;
NotInst_9 := All_Comps_In-Inst_9;
NotInst_10 := All_Comps_In-Inst_10;
OutPut(All_Comps_In-(NotInst_1 + NotInst_2 + NotInst_3 + NotInst_4+
NotInst_5 + NotInst_6 + NotInst_7 + NotInst_8+NotInst_9 + NotInst_10));
WriteLn;
Write('машины, которые имеет хотя бы один институт:');
OutPut(All_Comps_In);
WriteLn;
Write('машины, которых нет ни в одном институте:');
OutPut(All_Comps - All_Comps_In);
WriteLn;
While not KeyPressed Do;
End.

Uses Crt;
Type
 Comps = (i386, i486, Apple, Pentium, Acer, Macintosh);
 TComps = set of Comps;

Const
 names: array[Comps] of string =
   ('i386', 'i486', 'Apple', 'Pentium', 'Acer', 'Macintosh');
 All_comps : TComps = [i386, i486, Apple, Pentium, Acer, Macintosh];
 maxInst = 10;
 Inst: array[1 .. maxInst] of TComps =
   ( [i386,Acer, Pentium],
     [Acer, Pentium],
     [Apple, Pentium ],
     [Pentium, Acer, i486],
     [i386,Acer, Pentium],
     [Acer, Pentium],
     [Apple, Pentium ],
     [Pentium, Acer, i486],
     [Apple, Pentium ],
     [Pentium, Acer, i486] );

Var
 one, all: TComps;

Procedure OutPut(s : TComps);
 Var i: Comps;
 Begin
   For i := low(Comps) To High(Comps) Do
     If i in s then write(names[i] + ' ');
   Writeln
 End;

Var
 i: integer;

Begin
 ClrScr;
 one := []; all := all_comps;
 For i := 1 To maxInst Do
   begin
     one := one + Inst[i];
     all := all * inst[i];
   end;

 Write('машины, которыми обеспечены все институты:');
 output(all);

 Write('машины, которые имеет хотя бы один институт:');
 OutPut(one);

 Write('машины, которых нет ни в одном институте:');
 OutPut(All_Comps - one);

 While not KeyPressed Do
end.