module1
    Sub Main()
        Dim S As String
        Dim i As Integer, ans As String
        Dim Flgs(1 To 3) As String
        Dim key1 As String
    
        S = Console.ReadLine()
 
        For i = 1 To 3
            Flgs(i) = "0"
        Next
    
        For i = 1 To 3
            key1 = Mid(S, i, 1)
            Select Case key1
            Case "a"
                Flgs(1) = "1"
            Case "b"
                Flgs(2) = "1"
            Case "c"
                Flgs(3) = "1"
            End Select
        Next
 
        ans = "Yes"
        For i = 1 To 3
            If Flgs(i) = "0" Then ans = "No"
        Next
 
       Console.WriteLine(ans)
    
    End Sub
end module