[Drongo]

stalker-ust, Если напишу на С++ перевести на Pascal сможете? Есть кому?

Вообще логика этой программы такая(как я понял):

1. Запрашиваем ввод числа, которое создаст массив нужного нам размера (размер нашего множества)
2. Заполняем наше множество, запрашиваем у пользователя ввод чисел. Вводим столько чисел, какой размер имеет массив.
3. После заполнения, запрашиваем у пользователя ввод любого целого числа.
4. Проверяем в цикле с массивом, если в массиве нет введённого числа - значит число не входит, иначе - входит.