Module _20190421

    Sub Main()

        '文字列の長さ
        Dim iStrLength As Integer = CInt(Console.ReadLine())

        '文字列
        Dim sStr As String = Console.ReadLine()

        '整数
        Dim iNumber As Integer = CInt(Console.ReadLine())

        '文字列を分解
        Dim arrStr() As Char = sStr.ToCharArray

        '比較する文字を取得
        Dim sCompareStr As String = arrStr(iNumber - 1)

        '出力文字列
        Dim sOutput As String = ""

        For i As Integer = 0 To iStrLength - 1

            If arrStr(i) = sCompareStr Then

                sOutput = sOutput & arrStr(i)

            Else

                sOutput = sOutput & "*"

            End If

        Next

        Console.WriteLine(sOutput)

    End Sub

End Module