program laba3;
uses crt;
type
food=(bread,butter,milk,fish,salt,cheese,sugar,tea);
assort=set of food;

var
shop:array[1..3] of assort;
i:integer;
c:boolean;
q:food;

function Fts(f:food):string;
begin
case f of
      bread:Fts:='Хлеб';
      butter:Fts:='Масло';
      milk:Fts:='Молоко';
      fish:Fts:='Рыба';
      salt:Fts:='Соль';
      cheese:Fts:='Сыр';
      sugar:Fts:='Сахар';
      tea:Fts:='Чай';
end;
end;

begin
clrscr;
shop[1]:=[milk,butter];
shop[2]:=[milk,butter,salt];
shop[3]:=[milk,butter,tea];
Writeln('Продукты, которых нет ни в одном из магазинов:');

for q:=bread to tea do
begin
   for i:=1 to 3 do
       begin
        if (q in shop[i]) then c:=true else c:=false;
        if c=true  then i:=3;
       end;
if c=false then writeln(fts(q));
end;

readkey;
end.