народ!!! сижу на контрольной по паскалю, хэлп!!!
 

Задание №1. Перечислить через запятую в возрастающем порядке элементы, которые входят в множество А после выполнения следующей последовательности операторов.
Var A,B,C:set of 1..100;
i:byte;
Begin
B:=[];
For i:=10 to 100 do B:=B+;
C:=[1..10];
A:=B*C;
End.

люди добрые, помогите...