Найти подмножество! Без вас не найду)

[soleil]

Помогите пожалуйста) Нужно дописать курсовую, не могу математическую часть сделать) нужно: найти в последовательности чисел мах подмножество, в котором любые два числа не имеют общих делителей. Ооочень буду благодарна, надеюсь на помощь

[puporev]

Если числа не имееют общих делителей, значит их НОД=1.
Пишем функцию Nod(m,n:integer):integer;
Создаем массив (последовательность).
В двойном цикле
for i:=1 to n do
for j:= to n do
if (i<>j) and (Nod(a[i],a[j])=1)
считать количество совпадений для каждого a[i] и искать максимальное значение.