Imports System

Public Module Module1

    Public Sub Main()

        dim babytemp(0 to 18) as decimal

        dim flag as integer

        dim maxtemp as decimal = 0

        dim lotemp as decimal = 100

        for count= 1 to 3

        console.writeline("enter temp of baby:") 

        babytemp(count) = console.readline()

        if babytemp(count)> 37.5 then

            flag = flag+1

            console.writeline("baby has high temperature")

            if babytemp(count)>maxtemp then

                maxtemp=babytemp(count)

            end if

        else if babytemp(count)<36 then

                flag=flag+1

                console.writeline("baby has low temperature")

                if babytemp(count)<lotemp then

                lotemp=babytemp(count)

            end if

            else

                console.writeline("baby status is ok")

            end if

        next

        console.writeline("the amount of times it went below and over the normal")

        console.writeline(flag)

        console.writeline("the maximum temp the baby reached")

        console.writeline(maxtemp)

        console.writeline("the minimum temp the baby reached")

        console.WriteLine(lotemp)

    End Sub

End Module