Imports System

Public Module Module1

    Public Sub Main()

        Dim Day_Temp(30) as decimal

        Dim Night_Temp(30) as decimal

        For i = 1 to 30

        Console.writeline(" Please enter the Midday Temperature.")

        Day_Temp(i) = Console.readline()

        If Day_Temp(i) > 60 or Day_Temp(i) < 0 then

            Do while Day_Temp(i) > 60 or Day_Temp(i) < 0

                    Day_Temp(i) = Console.readline()

            loop

        else End if

            Console.writeline(" Please enter the Midnight Temperature")

        Night_Temp(i) = console.readline()

        If Night_Temp(i) < 0 or Night_Temp(i) > 60 then

        Do while Night_Temp(i) < 0 or Night_Temp(i) > 60

                Night_Temp(i) = Console.readline()  

        loop

        else End If

    Next

    End Sub

End Module