В интервале [2;n] найти естественное число с наибольшей суммой делителей.

Vivdarkbloom, к раскаянию, отыскал сумму всех чисел от 2 до N, а не число с 
наибольшей суммой делителей. Надо было так, пишу на Visual Basic
Sub Command1_Click()
Rem Программка запускается по нажатию кнопки  Command1 на форме
Dim n As Integer, Summa As Integer, Max As Integer
Dim Maxn As Integer, i As Integer, k As Integer
n = Text1.Text ' Это текстовое поле на форме, куда вводится n
Max = 1: Maxn = 1
For i = 2 To n
Summa = 0
For k = 1 To i
If i Mod k = 0 Then Summa = Summa + k ' Если k - делитель i, то добавляем
Next k
If Summa gt; Max Then ' Если сумма больше наибольшей
   Max = Summa ' Бережём сумму
   Maxn = i ' И бережём число i.
End If
Next i
Text2.Text = Maxn ' Это второе текстовое поле, куда выводится итог
End Sub