Вывести на экран N окружностей (координаты центра, цвет, радиус окружности генерируются случайным образом) - Free Pascal

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

Помогите с контрольной: Вывести на экран N окружностей (координаты центра, цвет, радиус окружности генерируются случайным образом). (Free Pascal)

Решение задачи: «Вывести на экран N окружностей (координаты центра, цвет, радиус окружности генерируются случайным образом)»

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

uses graph,wincrt;
var n,i,x,y,r,c:integer;
begin
randomize;
write('n=');
readln(n);
x:=0;
initgraph(x,y,'');
for i:=1 to n do
 begin
  r:=random(100)+20;
  x:=random(getmaxX-2*r)+r;
  y:=random(getmaxY-2*r)+r;
  c:=random(15)+1;
  setcolor(c);
  Circle(x,y,r);
 end;
readkey
end.

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

Импортируются необходимые модули для работы с графикой и консолью.
Задаются переменные для хранения количества окружностей, координат центра, радиуса окружности и её цвета.
Инициализируется генератор случайных чисел.
С помощью функции readln считывается количество окружностей, которое необходимо вывести на экран.
Переменная x инициализируется значением 0.
Функция initgraph инициализирует графический режим, указывая размеры окна и его цвет.
В цикле for от 1 до n (количество окружностей) выполняются следующие действия:
- Генерируется случайный радиус окружности в диапазоне от 20 до 119 (включительно).
- Генерируются случайные координаты центра окружности (переменные x и y), отталкиваясь от левого верхнего угла окна графического режима.
- Генерируется случайный цвет окружности в диапазоне от 1 до 15 (включительно).
- Устанавливается цвет окружности с помощью функции setcolor.
- Вызывается функция Circle, которая рисует окружность заданного радиуса, центра и цвета.
После завершения цикла, программа ожидает нажатия клавиши с помощью функции readkey.
Код завершается.