Помогите решить задачи в Visual Basic 6.0

1) Просто
Dim n As Integer, i As Integer, Max As Double, S As Double
n = Val (InputBox (n))
Dim A(n, 2) As Double
For i = 1 To n
A(i, 1) = Val (InputBox (x))
A(i, 2) = Val (InputBox (y))
Next i
Max = 0
For i = 1 To n - 1
For j = i + 1 To n
S = Sqr ((A(j, 1) - A(i, 1))^2 + (A(j, 2) - A(i, 2))^2)
If S > Max Then Max = S
Next j
Next i
MsgBox (Max)
End

2 и 3 не знаю. Могу только алгоритмы прикинуть.
2)
1. Берем число a1 = 3.
2. Раскладываем число a1 на множители. Находим их сумму S1. Проверяем, что S1 <= N
3. Берем эту сумму в качестве второго числа, a2 = S1, раскладываем на множители. Находим их сумму S2.
4. Если S2 = a1, то выводим пару чисел - они дружественные
5. Прибавляем a1 = a1 + 1, проверяем, что оно меньше N, и возвращаемся на п. 2
6. Достигаем N, заканчиваем программу.
7. Всё.

Но раскладывать числа на множители - это очень муторная задача.

3)
1. Берём культуру из перечня (массив А1).
2. В цикле проверяем её по всем колхозам.
3.1. Если она есть во всех колхозах, она попадает в массив В1
3.2. Если она есть хотя бы в одном колхозе, она попадает в массив В2
3.3. Если она есть ровно в двух колхозах, она попадает в массив В3
4. Переходим к следующей культуре и возвращаемся к п. 1.
5. Если культуры кончились, заканчиваем программу.
6. Всё.