Module Module144B

    Sub Main(ByVal args() As String)
        Dim N As Integer
        Dim i As Integer
        Dim mo As Integer
        Dim quot As Integer

        N = Console.ReadLine()

        For i = 1 To 9
            mo = N Mod i
            quot = Math.Truncate(N / i)

            If quot < 10 And mo = 0 Then
                Console.Write("Yes")
                Return
            End If
        Next

        Console.Write("No")
    End Sub

End Module
