' Temperature1 Project

' Input a Celsius temperature and 
' output the temperature in Fahrenheit.

Imports System.Console
Public Module Module1

    Public Sub Main()
        Dim celsius, fahrenheit As Integer

        Write("Enter a Celsius temperature: ")
        celsius = ReadLine()
        fahrenheit = 9 * celsius / 5 + 32
        WriteLine("Fahrenheit temperature is " & fahrenheit & ".")
        ReadLine()
    End Sub

End Module