Множества

type instr=(a1,a2,a3,a4,a5,a6);
const A: set of instr=[a1,a5];
B:set of instr=[a3,a4,a5];
C:set of instr=[a2,a3,a4,a6];
D:set of instr=[a3,a4,a6];
E:set of instr=[a5,a3,a4,a6];
var instryment :instr;
begin
writeln('Instryments');
for instryment:=a1 to a6 do
if instryment in (E-C) then
case ord(instryment)+1 of
1:writeln('gitar');
2:writeln('piano');
3:writeln('drums');
4:writeln('percussion');
5:writeln('violin');
6:writeln('bass');end;
end.

uses crt;
type instr=(a1,a2,a3,a4,a5,a6);
      mnz=set of instr;
const tov:array[0..5] of string[20]=('gitar','piano','drums','percussion','violin','bass');
var a:array[1..5] of mnz;
    b:mnz;
    instryment :instr;
begin
a[1]:=[a1,a5];
a[2]:=[a3,a4,a5];
a[3]:=[a2,a3,a4,a6];
a[4]:=[a3,a4,a6];
a[5]:=[a5,a3,a4,a6];
writeln('Множество 3:');
for instryment:=a1 to a6 do
if instryment in a[3] then
write(tov[ord(instryment)],' ');
writeln;
writeln('Множество 5:');
for instryment:=a1 to a6 do
if instryment in a[5] then
write(tov[ord(instryment)],' ');
writeln;
writeln('Инструменты, которые есть в 5 множестве, но нет в третьем');
b:=a[5]-a[3];
if b=[] then write('Таких инструментов нет')
else
 begin
  for instryment:=a1 to a6 do
  if instryment in b then
  write(tov[ord(instryment)],' ');
 end;
end.