{* Задача17 *}

REM basic

' Вывести на экран A$ по отрезкам, расположенным между запятыми
' (сами запятые не выводить).


CLS
A$ = "Монитор, системный блок, клавиатура, мышь - компьютер."

p = 1   
For i = 1 To LEN(A$)
    k = INSTR(p, A$, ",")    
If k > 0 Then
   PRINT Mid$(A$, p, k - p)
   p = k + 1    
End If
Next i

PRINT Mid$(A$, p, LEN(A$) - p + 1)

End