Составить слова из букв исходного - QBasic

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

Как составить программу, которая будет выводить мне из слова "программа": прог, грамм, рог и т.п? Буду благодарен за помощь.

Решение задачи: «Составить слова из букв исходного»

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

CLS
RANDOMIZE TIMER
DIM A(1 TO 10) AS INTEGER
 
FOR i = 1 TO 10
   A(i) = 150 * RND + 50
NEXT i
 
SCREEN 12
WINDOW (0, 500)-(640, 0)
 
FOR i = 1 TO 10
   x = 70 + 30 * i
   y = 300 + A(i)
   LINE (x, y)-(x + 30, 300), i, BF
NEXT i
 
FOR i = 1 TO 10
   LOCATE 17, 4 * i + 8
   PRINT A(i)
NEXT i
END

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

В этом коде используется язык программирования QBasic. Список действий, которые выполняются в коде:

Объявляется массив A размером 10 ячеек для хранения целых чисел.
В цикле от 1 до 10 ячеек массива A заполняются случайными числами от 150 до 249.
На экран выводится окно размером 640 на 12 точек.
В цикле от 1 до 10 точек на экране рисуются горизонтальные линии от (70,300) до (100,300) с подъёмом по вертикали на 300 единиц и смещением по горизонтали на 30 единиц.
В цикле от 1 до 10 на 17-й строке печатаются значения из ячеек массива A с шагом в 40 символов.