Лабораторный практикум по программированию на языке Паскаль. Найханова Л.В - 68 стр.

       magazin = array [1..N] of assort;             {информация о наличии продуктов во всех
магазинах задается как массив множеств}
Var
    m1 : magazin; x : product;
    a,b,c, xm1 : assort;
    i,j,iw,m : integer;
Begin
   for i := 1 to N do {ввод исходной информации}
     begin
         xm1 := [];
         writeln (' введите номера продуктов',i : '-го магазина =');
          repeat {в цикле REPEAT формируется множество XM1,
                       характеризующее наличие товаров в одном магазине.}
          read(iw);
          case iw of
            1: x := bread;
            2: x := butter;
            3: x := cheese;
            4: x := milk
         end;
         xm1 := xm1 + [x];
         until eoln;
    m1[i] := xm; {информация о наличии товаров записывается в массив M1}
     end;
           for i := 1 to 3 do {формирование множеств A,B,C и их распечатка}
     begin
       case i of
        1: writeln('продукты, имеющиеся одновременно во
                         всех магазинах');
        2: writeln('ассортимент продуктов');
        3: writeln('продукты, которых нет ни в одном магазине')
       end;
       for x := bread to milk do
         if x IN a then
           case x of
            bread: write('хлеб');
            butter: write('масло');
            cheese: write('сыр');
             milk: write('молоко')
           end;
         if i = 1 then
           a := b
         else
           a := c;
         writeln
     end
  end.

Содержание отчета
1. Титульный лист.
2. Словесная постановка задачи.
3. Графический или текстуальный алгоритм решения задачи.

                                                                                         68