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

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

Лабораторная работа №6.Графика Задача 1. Построить совокупность п кругов радиуса r, закрашенных в случайные цвета, центры которых расположены на диагонали используемого экрана.

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

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

CLS
INPUT "Vvedi n : ", n%
INPUT "Vvedi r : ", r%
SCREEN 12
FOR i% = 1 TO n%
  p = RND
  x% = p * 640
  y% = p * 480
  cv% = RND * 14 + 1
  CIRCLE (x%, y%), r%, cv%
  PAINT (x%, y%), cv%, cv%
NEXT

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

CLS - очистка экрана
INPUTVvedi n : , n% - ввод количества кругов (n)
INPUTVvedi r : , r% - ввод радиуса круга (r)
SCREEN 12 - установка цвета фона экрана на 12-й (светло-серый)
FOR i% = 1 TO n% - цикл для рисования заданного количества кругов
p = RND - присвоение переменной p случайного числа от 0 до 1
x% = p * 640 - присвоение переменной x координаты x оси (на основе p)
y% = p * 480 - присвоение переменной y координаты y оси (на основе p)
cv% = RND * 14 + 1 - присвоение переменной cv случайного цвета (от 1 до 15)
CIRCLE (x%, y%), r%, cv% - рисование круга с заданными координатами, радиусом и цветом
PAINT (x%, y%), cv%, cv% - закраска круга с помощью функции PAINT
NEXT - переход к следующей итерации цикла