{* Задача12 *}

REM basic

' Заменить все знаки пробел на тире в тексте A$.


CLS
A$ = "Привет участникам соревнований!"
  For i = 1 To LEN(A$)
    If ASC(Mid$(A$, i, 1)) = 32 Then Mid$(A$, i, 1) = "-"
  Next i
PRINT A$
End