Помогите с информатикой, напишите программу на VB.Net
Два натуральных числа называются дружественными, если каждое из них равно сумме всех делителей другого (Само и другое число в качестве делителя не рассматривается). Найти все пары дружественных чисел, которые меньше N (N вводится с клавиатуры)
Пример дружественных чисел:
220 и 284, т.к.
Сумма делителей 220 = 1+2+4+5+10+11+20+22+44+55+110=284
Сумма делителей 284 = 1+2+4+71+142=220
ПОМОГИТЕ ПЖЛСТ

Код на VBScript - проверялся, работаетFunction SumOfDividers(ByVal num)    SumOfDividers = 0    for i = 1 to num - 1        if num mod i = 0 then SumOfDividers = SumOfDividers + i    nextEnd FunctionSub Zadanie23317569(ByVal n)    for i = 2 to n        k = SumOfDividers(i)        if SumOfDividers(k) = i then Msgbox i & " " & k    nextEnd SubZadanie23317569 300Код на VB.Net  - исправление как догадалась, не проверялосьSub Main(ByVal n)    Dim i As Integer    Dim k As Integer    for i = 2 to n        k = SumOfDividers(i)        if SumOfDividers(k) = i then Console.WritelLine(i & " " & k)    nextEnd SubFunction SumOfDividers(ByVal num As Integer) As Integer    Dim i As Integer    SumOfDividers = 0    for i = 1 to num - 1        if num mod i = 0 then SumOfDividers = SumOfDividers + i    nextEnd Function