Перечислить через запятую в возрастающем порядке элементы, которые входят в множество а после выполнения следующей последовательности операторов: 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