{* Задача310 *}

REM basic

' В исходной строке a$ определить и вывести слова, которые встречаются в строке по одному разу.


LINE INPUT "Введите строку"; X$
D = LEN(X$)
Dim S$(D)
N = 1
For T = 1 To D
A$ = Mid$(X$, T, 1)
If A$ = "." Or A$ = " " Or A$ = "," Then
N = N + 1
Else
S$(N) = S$(N) + A$
End If
Next T
For T = 1 To N
SOV = 0
For K = 1 To LEN(S$(T))
PS$ = Mid$(S$(T), 1, 1)
TS$ = Mid$(S$(T), K, 1)
If (K  1) And (PS$ = TS$) Then SOV = SOV + 1
Next K
If SOV = 0 Then PRINT S$(T)
Next T
End