Пусть d2, d4, d6-множества, составленные из букв, входящих в название четырех дней недели. вывести в алфавитном порядке буквы,входящие:1. одновременно во все множества2.одновременно в названия и 2 и 4 дня недели3.хотя бы в одно множество4.в название только двух четных дней недели — Pascal(Паскаль)

uses crt;
var d2,d4,d6:set of char;
    i:char;
begin
clrscr;
d2:=['в','т','о','р','н','и','к'];
d4:=['ч','е','т','в','е','р','г'];
d6:=['с','у','б','о','т','а'];
writeln('Буквы входящие во все названия четных дней недели: ');
for i:='а' to 'у' do
if(i in d2)and(i in d4)and(i in d6)then
write(i,' ');
writeln;
writeln('Буквы входящие в названия 2 и 4 дней недели: ');
for i:='а' to 'у' do
if(i in d2)and(i in d4)then
write(i,' ');
writeln;
writeln('Буквы входящие в названия хотя бы 1 четного дня недели: ');
for i:='а' to 'у' do
if (i in d2)or(i in d4)or(i in d6)then
write(i,' ');
writeln;
writeln('Буквы входящие в названия только двух четных дней недели: ');
for i:='а' to 'у' do
if ((i in d2)and(i in d4)and not(i in d6))
or ((i in d2)and(i in d6)and not(i in d4))
or ((i in d4)and(i in d6)and not(i in d2))then
write(i,' ');
readln
end.