Module Module081A

    Sub Main(ByVal args() As String)
        Dim result As Integer
        Dim Input As String
        Dim i As Integer
        Input = Console.ReadLine()

        For i = 1 To 3
            If Input(i - 1) = "1" Then
                result = result + 1
            End If
        Next

        Console.Write(result)
    End Sub
End Module
