Нарисуйте круг произвольного радиуса - Turbo Pascal

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

Нарисуйте круг цвета произвольного радиуса, закрасив цветом cyan все, что лежит все этого круга.

Решение задачи: «Нарисуйте круг произвольного радиуса»

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

Uses Graph;
Var
  d,r: Integer;
BEGIN
d:=Detect;
InitGraph(d,r,'');
SetFillStyle(1,Cyan);
FloodFill(2,2,Cyan);
SetFillStyle(1,Black);
FillEllipse(GetMaxX div 2,GetMaxY div 2,150,150);
Readln;
CloseGraph
END.

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

В первой строке используется библиотека Graph, которая предоставляет функции для работы с графиком.
Переменная d инициализируется значением Detect, которое, предположительно, является идентификатором устройства или контекста, в котором выполняется код.
Функция InitGraph(d,r,'') инициализирует графический контекст с использованием переменной d, которая, вероятно, содержит идентификатор устройства или контекста. Параметр r, вероятно, содержит начальные координаты или размеры окна графика. Передаваемая строка '' используется для задания имени окна графика.
Функция SetFillStyle(1,Cyan) устанавливает стиль заливки для объекта, который будет заполнен следующим образом. Здесь 1 - это номер стиля, а Cyan - это цвет заливки.
Функция FloodFill(x,y,c) выполняет заполнение прямоугольника цветом c. Здесь x и y - это координаты верхнего левого угла прямоугольника, а c - это цвет, которым должен быть заполнен прямоугольник.
Функция SetFillStyle(1,Black) устанавливает стиль заливки для объекта, который будет заполнен следующим образом. Здесь 1 - это номер стиля, а Black - это цвет заливки.
Функция FillEllipse(x,y,w,h) выполняет заполнение эллипса цветом c. Здесь x и y - это координаты центра эллипса, а w и h - это ширина и высота эллипса соответственно. Здесь c - это цвет, которым должен быть заполнен эллипс.
Функция Readln() считывает ввод пользователя до тех пор, пока не будет введен символ новой строки.
Функция CloseGraph закрывает графический контекст, освобождая ресурсы, выделенные для него.