{Винарский}
type
  продукт = (хлеб, масло, молоко, мясо, рыба, соль, сыр, колбаса, сахар, чай, кофе);
  ассортимент = set of продукт;
  магазины = array[1..20] of ассортимент;

procedure Наличие(Маг: магазины; var A, B, C: ассортимент);
var
  i: integer;
begin
  A := [хлеб..кофе];
  B := [];
  for i := 1 to 20 do
  begin
    A := A * [Маг[i]];
    B := B + [Маг[i]];
  end;
  C := [хлеб..кофе] - B;
end;