Module Module1

    Sub Main()
        Dim tmp = Console.ReadLine()
        Dim s1 = tmp(0)
        Dim s2 = tmp(1)
        Dim s3 = tmp(2)

        Dim s = Join({s1, s2, s3}, "")
        Dim ans = 0

        For Each c In s
            ans = ans + CInt(c & "")
        Next

        Console.WriteLine(ans)

    End Sub

End Module