Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Enter baby's temperature")

        Dim t1 As Integer

        t1 = Console.ReadLine()

        If t1 > 37.5 Then 

            Console.WriteLine("Baby's temperature is too high")

        Elseif t1 < 36 Then 

            Console.WriteLine("Baby's temperature is too low")

        Else Console.WriteLine("Baby's temperature is acceptable")

        End If

    End Sub

    Public Sub Store()

        Dim t1(2) As Integer

        Dim min as Integer = 0

        Dim max As Integer = 0

        Dim dif As Integer = 0

        For 

    End Sub

End Module