Imports System

Public Module Module1

    Public Sub Main()

        Dim a as integer = 0

        Dim b as double 

        Dim c as integer = 0

        Dim d as integer = 0

        Console.WriteLine("Escriba un número de edades: ")

        a = Cint(Console.ReadLine())

        While (a >= 0)

            c = c + a

            d = d + 1

            b = c / d

        Console.WriteLine("El promedio de las edades es {0}",b)

            Console.WriteLine("Escriba un número: ")

         a = Cint(Console.ReadLine())

        End while

        Console.WriteLine("No hay edades negativas")

    End Sub

End Module