
Module Module1

    Sub main()
        Dim user1 = CInt(Console.ReadLine())
        Dim user2 = Console.ReadLine()
        Dim result As String = ""

        If Len(user2) > user1 Then

            result = Mid(user2, 1, user1) & "..."
        Else
            result = user2
        End If
        Console.WriteLine(result)
    End Sub
end module