Текст задания

Имеются три множества символьного типа: Y1=[‘A’,’B’,’D’,’R’,’H’]; Y2=[‘R’,’A’,’H’,’D’]; Y3=[‘A’,’R’]. Сформировать новое множество X=(Y1Y2)(Y1\Y3). Вывести его элементы на печать.

Исходный код программы

Program MN_3;
uses crt;
var
y,y1,y2,y3: Set of 'A'..'Z';
i:integer;
begin
clrscr;

y1:=['A','B','D','R','H']; 	{задаем начальные множества}
y2:=['R','A','H','D'];
y3:=['A','R'];

y:=(y1+y2)*(y1-y3);		{проводим операции над множествами, результат - множество y}
for i:=65 to 90 do
 if char(i) in y then write (char(i),' '); {выводим множество y на экран}
readln;
end.

Результат работы программы