Множество

uses Crt;
type
ovosh = (kart,ukrop,mork,goroh,kapus,redis);
const
mas : array[0..5] of string = ('картофель','укроп','морковь','горох','капуста','редис');
var
a,b,c:set of ovosh;
f:integer;
k:ovosh;
 
begin
clrscr;
a:=[kart,mork,goroh];
b:=[kart,goroh,kapus];
c:=[kart,kapus,redis];
{----------}
writeln('Возделывают на всех участках: ');
f:=0;
for k := kart to redis do
 begin
 if (k in a) and (k in b) and (k in c) then
  begin
   write(mas[ord(k)],'  ');
   f:=1;
  end;
 end;
if f=0 then writeln('Таких участков нет!');
writeln;
writeln;
writeln('Не возделывают ни на одном участке: ');
f:=0;
for k:= kart to redis do
 begin
 if not (k in a) and not (k in b) and not (k in c) then
  begin
   write(mas[ord(k)],'  ');
   f:=1;
  end;
 end;
if f=0 then writeln('Таких участков нет!');
writeln;
writeln;
writeln('Возделывают хотя бы на одном участке: ');
f:=0;
for k:=kart to redis do
 begin
 if (k in a) or (k in b) or (k in c) then
  begin
   write(mas[ord(k)],'  ');
   f:=1;
  end;
 end;
if f=0 then writeln('Таких участков нет!');
readln
end.