Построить несколько концентрических окружностей. Задать максимальный радиус и шаг его изменения - QBasic

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

Помогите пожалуйста сделать задание в QB. Построить несколько концентрических окружностей. Задать максимальный радиус и шаг его изменения. Вывести значение максимального радиуса и количество окружностей.

Решение задачи: «Построить несколько концентрических окружностей. Задать максимальный радиус и шаг его изменения»

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

FOR i=turn TO max STEP ste
CIRCLE(320,240), i
NEXT i

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

Установлен начальный номер цикла от turn до max с шагом ste
В каждой итерации цикла вызывается функция CIRCLE(320,240), i, которая рисует окружность с центром в точке (320,240) и радиусом i
Цикл продолжается до тех пор, пока i не станет меньше или равным max
Значение переменной i изменяется на каждом шаге цикла от turn до max с шагом ste