{* Задача13 *}

REM basic

' В тексте A$ после каждого пробела вставить B$


CLS
A$ = "Белеет парус одинокий.": B$ = "11": x = LEN(A$)
For i = 1 To x
   If ASC(Mid$(A$, i, 1)) = 32 Then
        A$ = Mid$(A$, 1, i) + B$ + Mid$(A$, i + 1, x)
   End If
Next i
PRINT A$
End