Imports System
Public Class exercise14
Private Shared Sub Main()
Console.Write("Enter the amount of celsius: ")
Dim celsius As Integer = Convert.ToInt32(Console.ReadLine())
Console.WriteLine("Kelvin = {0}", celsius + 273)
Console.WriteLine("Fahrenheit = {0}", celsius * 18 / 10 + 32)
End Sub
End Class