помогите написать задачу в турбо паскале

1. Вычислите значение отношения []<=['0'..'9'].
2. Даны 3 множества Х1, Х2, Х3, содержащие целые числа из диапазона 1..150. Мощность
каждого множества равна 10. Сформировать множество Y=(X1∪X2)∪(X1\X3), из которого
выделить подмножество Y1 чисел, делящихся без остатка или на 2, или на 3. Значения
элементов исходных данных ввести с клавиатуры.