gips

на производстве есть 6 цехов (переменная Ceh), которые используют определенный асортимен (змінна Asortyment) резального инструмента. сегодня каждый цех потратил определенный набор инструментов (оператор Ceh[i]:=...). дальше приведено начало программы анализа асортимента резальных инструментов которые используются на заводе
Program Pidpryemstvo_2;
type
Instrument = (rezetc,freza,sverdlo,zenker,zenkivka,
rozvertka,cekivka,mitchyk,plashka,protyagka,shever );
Asortyment = set of Instrument;

Ceh :array[1..6] of Asortyment;
Begin
Ceh[1]:=[freza,sverdlo,mitchyk,protyagka];
Ceh[2]:=[cekivka,sverdlo,freza];
Ceh[3]:=[mitchyk,sverdlo,zenker,rozvertka];
. . .
End.

узнать полную нуменклатуру инструмента который было использовано вцелом