Определить, встречаются ли в массиве три подряд идущих одинаковых числа (Блок-схема) - QBasic

Формулировка задачи:

Нужно разработать блок-схему и записать программу на языке QBaSIC 1)Дан массив чисел,состоящих из К элементов. Определить встречаются ли в нем три подряд идущих одинаковых числа 2)Дана матрица А(МхN).вывести на печать элементы строки и столбца,на пересечении которых находится минимальный по модулю элемент

Решение задачи: «Определить, встречаются ли в массиве три подряд идущих одинаковых числа (Блок-схема)»

Листинг программы

INPUT "k ="; k
DIM A(1 TO k)
 
FOR i = 1 TO k
    '  A(i) = INT(RND * 10) - 5
    INPUT A(i)
NEXT i
 
FOR i = 1 TO k
    PRINT USING "##  "; A(i);
NEXT i
PRINT
 
FOR i = 1 TO k - 2
    IF (A(i) = A(i + 1)) AND (A(i) = A(i + 2)) THEN
        PRINT "Yes"
    END IF
    IF (A(i) = A(i + 1)) AND (A(i) = A(i + 2)) THEN GOTO P
NEXT i
PRINT "No"
P: END

Объяснение кода листинга программы

Ввод числа k с клавиатуры
Выделение памяти под массив A размером k
Заполнение массива A случайными числами от -5 до 5
Вывод на экран всех чисел массива A
Проверка наличия трех подряд идущих одинаковых чисел в массиве A
Если такие числа есть, то выводится Yes, если нет, то выводится No