Нарисовать N кругов с радиусом от 5 до 50 в случайном месте случайным цветом в рамке - Pascal ABC

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

Нарисовать N кругов с радиусом от 5 до 50 в случайном месте случайным цветом в рамке.

Решение задачи: «Нарисовать N кругов с радиусом от 5 до 50 в случайном месте случайным цветом в рамке»

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

uses graphABC;
var x1,y1,x2,y2,i,n,x,y,r:integer;
begin
randomize;
write('n=');
readln(n);
x1:=20;
y1:=20;
x2:=windowwidth-20;
y2:=windowheight-20;
setbrushstyle(bsClear);
setpenwidth(5);
setpencolor(clRed);
rectangle(x1,y1,x2,y2);
setpenwidth(2);
for i:=1 to n do
 begin
  r:=5+random(46);
  x:=x1+r+5+random(x2-2*(x1+r)-10);
  y:=y1+r+5+random(y2-2*(y1+r)-10);
  setpencolor(clrandom);
  circle(x,y,r);
 end;
end.

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

Импортируется библиотека graphABC.
Объявляются переменные x1, y1, x2, y2, i, n, x, y, r: integer;
Вызывается функция randomize, чтобы инициализировать генератор случайных чисел.
Выводится запрос на ввод значения переменной n.
Присваиваются значения переменным x1, y1, x2, y2.
Устанавливается стиль кисти на bsClear.
Устанавливается ширина пера на 5.
Устанавливается цвет пера на clRed.
Вызывается функция rectangle, чтобы нарисовать прямоугольник с заданными координатами.
Устанавливается ширина пера на 2.
Запускается цикл for, который будет выполняться n раз.
Внутри цикла вызывается функция randomize, чтобы инициализировать генератор случайных чисел.
Вычисляются координаты x и y для каждого круга.
Вызывается функция circle, чтобы нарисовать круг с заданными координататами.
Координаты x и y для следующего круга вычисляются с помощью тех же формул, но с добавлением случайного числа от 5 до 45.
Цикл продолжается до тех пор, пока все n кругов не будут нарисованы.
Конец программы.