треугольник вписать в круг - графика, паскаль

Помогите нарисовать треугольник вписать в круг.
цвет линий - синий,
цвет заливки - жолтый.
uses crt,graph;
var x1,x2,y1,y2,x,y,r,gm,gd:integer;
begin
clrscr;
gm:=detect;
initgraph(gd, gm,'');
x:=400; y:=300; r:=100;
setcolor(1);
setfillstyle(1,14);
floodfill(x,y,14); - заливает весь экран, хотя вроде правильно написал.
circle(x,y,100);
{треугольник впишите в круг пожалуйста}
readln;
closegraph;
end.