Паскаль АВС множества., Выполнить операции объединения, разности, пересечения с разными типами Опции

[swe-4a]

Не могу составить программу вариантов ни каких!!! Все что пробовала написать компилирует с кучей ошибок о несовместимости типов. Помогите составить программу, пожайлуста!
Множества букв заполнены следующим образом: множество 1-цифрами; множество 2 – знаками препинания; множество D3 – буквами. Выполнить операции объединения, разности, пересечения.

Сообщение отредактировано: swe-4a - 8.02.2011 17:18

[TarasBer]

И что ты хочешь сказать это строкой? Зачем она вообще? Убери её вообще.

[swe-4a]

И что ты хочешь сказать это строкой? Зачем она вообще? Убери её вообще.

Я ничего не хочу сказать вот пример из лекций на основании которого я должна научиться понимать как писать программы подобного содержания.

2.Операции над множествами.
Множества чисел заполнены следующим образом: множество D1- четными числами 2, 4, 6, 8; множество D2 – числами 0,1,2,3,5; множество D3 – нечетными числами 1, 3, 5, 7, 9. Выполнить операции объединения, разности, пересечения.
Программа выглядит так:

program prim;
type  d=set  of   0..20;
 var dr,d1,d2,d3:d; 
Begin
dr:=[ ];
d1:=[2,4,6,8,10,12,14,16];
d2:=[0,1,2,3,5,7];
d3:=[9,11,13,15,17,19];
dr:=d1+d2;    (*объединение d1, d2,*)
dr:=dr+d3;    (*объединение dr, d3,*)
dr:=dr-d2;     (*разность множеств *)
dr:=dr*d1;     (*пересечение множеств  *)
end.

и все! как выводить результат??? хорошо убираю эту злостную строку...но как получить ответ?