Imports System

Public Module Module1

    Public Sub Main()

        Dim n1 as integer

        Do until (n1 = -1)

            n1 = console.ReadLine()

            Console.WriteLine((n1-32)*5/8 & "˚C")

        loop

    End Sub

End Module