{* Задача335 *}

REM basic

' В символьной переменной D$ записана строка символов. Найти слова начинающиеся на букву "л".


CLS
INPUT "Введите строку: ", D$
PRINT "Слова на L: " 
 
If Mid$(D$, 1, 1) = "L" Then
  I = 1
  For J = I To LEN(D$)
    If Mid$(D$, J, 1) = " " Or J = LEN(D$) Then
      PRINT Mid$(D$, I, J + 1 - I)
      Exit For
    End If
  Next J
End If
 
For I = 2 To LEN(D$)
  If Mid$(D$, I, 1) = "L" And Mid$(D$, I - 1, 1) = " " Then
    For J = I To LEN(D$)
      If Mid$(D$, J, 1) = " " Or J = LEN(D$) Then
        PRINT Mid$(D$, I, J + 1 - I)
        Exit For
      End If
    Next J
  End If
Next I
End