Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim Temp as Integer

        Dim Humidity as Integer

        Console.WriteLine("Enter the temperature")

        Temp = Console.ReadLine()

        Console.WriteLine("Enter the humidity")

        Humidity = Console.ReadLine()

        IF Temp > 25 OR Humidity > 50 THEN

            Console.WriteLine("Open the window")

        END IF 

        IF Temp < 10 AND Humidity < 50 THEN

            Console.WriteLine("Close the window")

​

        END IF 

        End Sub

End Module

​