Module Module1
    'Функция нахождения наибольшего общего делителя'
    Function GSD(a As Long, b As Long) As Long
        If (a * b) = 0 Then
            GSD = a + b
        Else
            If a > b Then
                GSD = GSD(a Mod b, b)
            Else
                GSD = GSD(a, b Mod a)
            End If
        End If
    End Function

    'Функция нахождения наименьшего общего кратного'
    Function LCM(a As Long, b As Long) As Long
        LCM = (a / GSD(a, b)) * b
    End Function

    Sub Main()
        Const n = 9
        Dim arr(0 To n) As Integer
        Dim i As Byte

        'Формируем исходный массив размером n+1'
        Console.WriteLine("Исходный массив:")
        For i = 0 To n
            arr(i) = Int(Rnd() * 10) + 1
            Console.Write("{0,3:0}", arr(i))
        Next i
        Console.WriteLine()

        'Выводим наименьшее общее кратное'
        For i = 0 To n / 2
            Console.WriteLine("НОК({0}+{1},{2}+{3})={4,4:0}", arr(i), arr(n - i), arr(i + 1), arr(n - (i + 1)), LCM(arr(i) + arr(n - i), arr(i + 1) + arr(n - (i + 1))))
        Next i
        Console.ReadKey()
    End Sub
End Module