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

uses graph;
var x,y,a,b,i:integer;
begin
initgraph(x,y,'');
a:=getmaxX div 6;
b:=a-50;
y:=getmaxY div 2;
x:=getmaxX div 2-a;
for i:=1 to 3 do
 begin
  setcolor(i+9);
  ellipse(x,y,0,360,a,b);
  x:=x+a;
 end;
outtextXY(x-3*a+30,y+2*b,'Leonardo da Vinchi');
readln
end.

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;
begin
SetPenColor(clRed);
SetBrushStyle(bsClear);
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.