{* Задача15 *}

REM basic

' Удалить все запятые в строке A$.


CLS
A$ = ",,1, 2, 3, 4, 5,,,,":  x = LEN(A$)
For i = 1 To x
        If Mid$(A$, i, 1) = "," Then
                A$ = Mid$(A$, 1, i - 1) + Mid$(A$, i + 1, x)
                i = i - 1       
        End If
Next i: PRINT A$
End