Imports System
Public Module Module1
Public Sub Main()
dim total as decimal = 0.0
For n = 1 to 5
Console.WriteLine("enter number " & n & ":")
total = total + console.readline()
next n
Console.WriteLine("total is " & total)
Console.writeline("average is " & total / 5)
End Sub
End Module