Module Module1

    Sub Main()

        Dim n As Integer
        n = CInt(Console.ReadLine())

        Dim nBonus As Integer
        nBonus = Int(n / 15)

        Console.WriteLine(n * 800 - nBonus * 200)

    End Sub

End Module
