Программа на тему - Множества

[deus95]

Нужна помощь с данной программой.На предприятии имеется 8 цехов (переменная Ceh), которые выпускают определенный ассортимент (переменная Asortyment) стандартных крепежных деталей. Сегодня каждый цех выпускает определенный набор таких деталей (оператор Ceh [i]: = ...). Далее приведен начало программы анализа ассортимента стандартных деталей, выпускаемых на заводе.
Program Pidpryemstvo_1;
type
Product = (gvynt,bolt,gayka,zaklepka,koltso,
shplint,shurup,shayba,shpilka,shpon ka,shtift);
Asortyment = set of product;
var
Ceh :array[1..8] of Asortyment;
Begin
Ceh[1]:=[gvynt,bolt,gayka];
Ceh[2]:=[gvynt,gayka,zaklepka,shponka];
Ceh[3]:=[shurup];
. . . . .
End.
Задание:Определить номенклатуру стандартных крепежных деталей, которую сегодня выпускали все цеха предприятия.