Перечислить через запятую в возрастающем порядке элементы, которые входят в множество А после выполнения следующей последовательности операторов:
var A,B,C:set of 1..100;
I:byte;
begin
A:=[1..10,20,30,40];
for I:=1 to 9 do A:=A-[i];
B:=[20..30];
A:=B*A;
end.
Помогите пожалуйста!!

1. Множество А инициализируется набором значений 1,2,3,4,5,6,7,8,9,10,20,30,40.2. Операция " - " это разность множеств. В данном случае из множества А последовательно вычитаются элементы от 1 до 9 и остаются элементы 10,20,30,40.3. Множество В инициализируется элементами 20,21,22,23,24,25,26,27,28,29,30.4. Находится пересечение множества А и В, т.е. в А остаются только те элементы, которые есть в множестве В. Это 20 и 30.Ответ: 20, 30