{* Задача27 *}

REM basic

' Вывести на экран слова, содержащие три буквы


CLS
INPUT "vvedite Text"; a$
Dim b(LEN(a$)), c$(LEN(a$))
For i = 1 To LEN(a$)
    If Mid$(a$, i, 1) = " " Or Mid$(a$, i, 1) = "." Then k = k + 1: b(k) = i
Next
For i = 1 To k
    c$(i) = Mid$(a$, b(i - 1) + 1, b(i) - b(i - 1) - 1)
    If LEN(c$(i)) = 3 Then PRINT c$(i)
Next
End