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

Question

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

Igor Zinevich · Accepted Answer

Пишите в почту, сделаю.