Module Module1

	Sub Main()
		Dim count As Short = 0
		Dim vathmos, avg As Double

		avg = 0
		count = 0
		Do
			Console.Write("vathmos")
	        	vathmos = Console.ReadLine()
	        	count += 1
		        avg += vathmos
		Loop Until vathmos <= 0

		Console.Write(avg / count)
		Console.ReadKey()
	End Sub

End Module
