Построить совокупность n кругов радиуса r со случайными координатами их центров, закрашенные в случайные цвета - QBasic

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

Построить совокупность n кругов радиуса r со случайными координатами их центров, закрашенные в случайные цвета.

Решение задачи: «Построить совокупность n кругов радиуса r со случайными координатами их центров, закрашенные в случайные цвета»

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

CLS
INPUT "Vvedite kol-vo krugov:"; n
INPUT "Vvedite radius:"; r
SCREEN 12
FOR i = 1 TO n
 cv = RND * 15 + 1
 kx = RND * 639: ky = RND * 479
 CIRCLE (kx, ky), r, cv
 PAINT (kx, ky), cv, cv
NEXT

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

CLS - очистка экрана
INPUT Vvedite kol-vo krugov:; n - ввод количества кругов
INPUT Vvedite radius:; r - ввод радиуса круга
SCREEN 12 - установка цвета фона экрана на 12-й из 15 возможных (светло-серый)
FOR i = 1 TO n - цикл, выполняющийся от 1 до n (количество кругов)
cv = RND * 15 + 1 - генерация случайного числа в диапазоне от 1 до 15 (цвет круга)
kx = RND 639: ky = RND 479 - генерация случайных координат центра круга
CIRCLE (kx, ky), r, cv - построение круга с заданным радиусом, цветом и координатами центра
PAINT (kx, ky), cv, cv - закраска круга цветом, соответствующим его координатам центра
NEXT - переход к следующей итерации цикла