Задайте символьный массив. Найдите и выведите на экран те элементы, которые имеют длину слова, равную пяти- QBasic(Бейсик)

INPUT n
DIM a$(n)
FOR i = 1 TO n
    INPUT a$(i)
NEXT
FOR i = 1 TO n
    IF LEN(a$(i)) = 5 THEN PRINT a$(i)
NEXT

Тестирование выполнено в программе QB64 ( Скачать )