Imports System

Public Module Module1

    Public Sub Main()

        Dim t1 as Decimal

        Dim t2 as Decimal

        Dim t3 as Decimal

        Dim pro as Decimal

        Console.Write("Ingrese Temperatura 1")

        t1 = Console.ReadLine()

        Console.Write("Ingrese Temperatura 2")

        t2 = Console.ReadLine()

        Console.Write("Ingrese Temperatura 3")

        t3 = Console.ReadLine()

        pro = ( t1 + t2 + t3 ) / 3

        if pro > 20 then

            Console.WriteLine("Cálido")

        elseif pro < 10 then

            Console.WriteLine("Frío")

        else

            Console. WriteLine("Templado")

        end if

    End Sub

End Module