Sub massiv(ByVal x() As Integer)
        Dim y As Double = 1
        For i = 0 To x.Length - 1
            y *= Math.Pow(x(i), (1 / x.Length))
        Next
        For i = 0 To x.Length - 1
            x(i) = x(i) / y
            ListBox1.items.add(x(i))
        Next
    End Sub