задача turbo pascal

Реализовать решение задачи в turbo pascal

Организовать ввод элементов множеств А и В. Проверить:

а) совпадают ли множества;

б) является ли одно множество подмножеством другого;

в) если не выполняются а) и б), то напечатать А В.

(Используйте переменные типа множеств. При печати значений элементов множеств используйте операцию X in A)