Imports System

Module Program

    Sub Main(args As String())

        Dim num As Integer = 5

        Dim numbers() As Integer = {10, 2, 55, 39, 21}

        Dim average As Double

        Console.WriteLine("числа: " & numbers(0) & ", " & numbers(1) & ", " & numbers(2) & ", " & numbers(3) & ", " & numbers(4))

        average = (numbers(0) + numbers(1) + numbers(2) + numbers(3) + numbers(4)) / num

        Console.WriteLine("средно аритметично на числата: " & average)

        Console.Write("по-големи от средното аритметично числа: ")

        For index = 0 To num - 1

            If numbers(index) > average Then

                Console.Write(numbers(index) & ", ")

            End If

        Next

    End Sub

End Module