Imports System

Public Module Module1

    Public Sub Main()

        dim day, sum, temp as integer

        dim average as decimal

        For day = 1 to 7

        sum = 0

        Console.WriteLine("Enter the temperature")

        temp=Console.ReadLine()

        sum = sum + temp

        Console.WriteLine("The sum is =" & sum)

        average = sum/7

        Console.WriteLine("The average is =" & average)

    Next

    End Sub

End Module