В окружность вписанные два треугольника(нарисовать)

program graphic;
uses graphABC;  {подключаем модуль GraphABC для работы}
begin
SetPenColor(clRed);  {устанавливаем цвет пера - красный}
SetBrushColor(clBlue);        {Второй способ – установка цвета кисти}
circle(300,200,60);  {рисуем окружность радиуса 60  центром в точке (300;200)}
end.

uses graphABC; 
begin
circle(300,200,60);
SetPenColor(clRed);  
SetBrushColor(clRed);    
line(240,200,360,200);
line(300,140,300,260);
floodfill(305,195,clRed);
floodfill(295,205,clRed);
end.

var a,b,c,r:integer;
begin
setwindowsize(400,400);
c:=200;
r:=60;
circle(c,c,r);
SetBrushColor(clRed);
line(c-r,c,c+r,c);
line(c,c-r,c,c+r);
line(c,c-r,c+r,c);
line(c-r,c,c,c+r);
floodfill(c+5,c-5,clRed);
floodfill(c-5,c+5,clRed);
a:=r div 2;
b:=round(sqrt(r*r-a*a));
line(c-a,c-b,c-a,c+b);
line(c+a,c-b,c+a,c+b);
line(c-b,c-a,c+b,c-a);
line(c-b,c+a,c+b,c+a);
end.

uses graphABC;
var c,r:integer;
procedure trg(a:integer);
begin
line(c-a,c,c+a,c);
line(c,c-a,c,c+a);
line(c,c-a,c+a,c);
line(c-a,c,c,c+a);
SetBrushStyle(bsSolid);
SetBrushColor(clRed);
floodfill(c+5,c-5,clRed);
floodfill(c-5,c+5,clRed);
end;
procedure krug;
var a,b:integer;
begin
SetbrushStyle(bsClear);
circle(c,c,r);
a:=r div 2;
b:=round(sqrt(r*r-a*a));
line(c-a,c-b,c-a,c+b);
line(c+a,c-b,c+a,c+b);
line(c-b,c-a,c+b,c-a);
line(c-b,c+a,c+b,c+a);
end;
var a:integer;
begin
setwindowsize(400,400);
c:=200;
r:=60;
a:=r;
lockdrawing;
repeat
clearwindow;
trg(a);
krug;
sleep(50);
a:=a+1;
redraw;
until a>=c;
end.