Module _20190422

    Sub Main()

        Dim sRead As String = Console.ReadLine()

        Dim iNum() As String = sRead.Split(" ")

        '降順に並べるバブルソート
        For i As Integer = 0 To iNum.Length - 1

            For j As Integer = iNum.Length - 1 To i + 1 Step -1

                If iNum(j) > iNum(j - 1) Then

                    Dim iTemp As String = iNum(j)
                    iNum(j) = iNum(j - 1)
                    iNum(j - 1) = iTemp

                End If

            Next

        Next

        Console.WriteLine(CInt(iNum(0).ToString & iNum(1).ToString) + iNum(2))

    End Sub

End Module