Вывести на экран три эллипса которые пересекаются и подписать кто сделал рисунок - Turbo Pascal

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

Вывести на экран три эллипса которые пересекаются и подписать кто сделал рисунок

Решение задачи: «Вывести на экран три эллипса которые пересекаются и подписать кто сделал рисунок»

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

uses
GraphABC;
var pic: integer;
begin
SetPenColor(clRed);
Ellipse(150, 150, WindowWidth - 50, WindowHeight - 110); 
Ellipse(270, 100, WindowWidth - 250, WindowHeight - 170);
Ellipse(150, 150, WindowWidth - 350, WindowHeight - 30);
TextOut(200,20,'');
end.

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

uses GraphABC; — Импортируется модуль GraphABC, который содержит функции для рисования графических примитивов
var pic: integer; — Объявляется переменная типа integer с именем pic
begin — Начало выполнения программы
SetPenColor(clRed); — Устанавливается цвет пера на красный
Ellipse(150, 150, WindowWidth - 50, WindowHeight - 110); — Рисуется первый эллипс с координатами (150,150) и размерами (WindowWidth-50,WindowHeight-110)
Ellipse(270, 100, WindowWidth - 250, WindowHeight - 170); — Рисуется второй эллипс с координатами (270,100) и размерами (WindowWidth-250,WindowHeight-170)
Ellipse(150, 150, WindowWidth - 350, WindowHeight - 30); — Рисуется третий эллипс с координатами (150,150) и размерами (WindowWidth-350,WindowHeight-30)
TextOut(200,20,''); — Выводится пустая строка на экран в координатах (200,20)
end; — Конец выполнения программы