Опишите множества D1,D2,D3. Заполните их соответственно числами 2,4,6,8; 0,1,2,3,5; 1,3,5,7,9. Выполните над множествами операции объединения, разности и пересечения.

Program Dafnochka; uses crt; type   TypeD=set  of 0..10; var   dr,d1,d2,d3:TypeD;   c:integer; begin   d1:=[2,4,6,8];   d2:=[0,1,2,3,5];   d3:=[1,3,5,7,9]; {вывод множеств}   writeln('Множество D1:');   for c:=0 to 10 do     if c in d1 then       write (' ',c,' ');   writeln();   writeln();        writeln('Множество D2:');   for c:=0 to 10 do     if c in d2 then       write (' ',c,' ');   writeln();   writeln();      writeln('Множество D3:');   for c:=0 to 10 do     if c in d3 then       write (' ',c,' ');   writeln();      writeln();   {примеры}   dr:=d1+d2;       writeln('Пример 1 - объединение множеств D1 U D2');   for c:=0 to 10 do     if c in dr then       write (' ',c,' ');   writeln();      dr:=d2-d3;     writeln();      writeln('Пример 2 - разность множеств D2\D3');   for c:=0 to 10 do     if c in dr then       write (' ',c,' ');   writeln();      dr:=d2*d3;      writeln();       writeln('Пример 3 - пересечение множеств D2 П D3');   for c:=0 to 10 do     if c in dr then       write (' ',c,' ');   writeln();    end.