{* Задача34 *}

REM basic

' В исходном преложении заменить все символы пробела символом тире


CLS
INPUT "vvedite Text"; a$
For i = 1 To LEN(a$)
    If Mid$(a$, i, 1) = " " Then Mid$(a$, i, 1) = "-"
Next
PRINT a$
End