Imports System

Public Module Module1

    Public Sub Main()

        dim total1 as single = 0.0

        dim total2 as single = 0.0

        dim temperature as single

        dim days as integer = 1

        do while days<5  ' 4 days

            console.writeline("Enter temperature")

            temperature = console.readline()

            select case temperature

            case <20 : total1 = total1 + 1

            case >=20 : total2 = total2 + 1

            end select

            days = days + 1

        loop

        console.writeline("Total1 is :" & total1)

        console.writeline("Total2 is :" & total2)

    End Sub

End Module