Вписанная окружность.

  Form1: TForm1;
   r1,r2,a,s,h :real;
   q:integer;
   var xc,yc:integer;
    p:array[1..4] of TPoint;
    r:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text); //сторона треугольника
r1:=a/(sqrt(3));//описанная окружность
Edit2.text:=floattostrf(r1,fffixed,8,3);
r2:=a/2*sqrt(3);
Edit3.text:=floattostrf(r2,fffixed,8,3);
s:=((sqrt(3))/4)*(sqr(a));
Edit4.text:=floattostrf(s,fffixed,8,3);
h:=a*(sqrt(3))/2;
Edit5.text:=floattostrf(h,fffixed,8,3);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
q:=StrToInt(Edit1.Text);
Canvas.Polygon([Point(520, 103),Point(430, 250), Point(607, 250)]);
Canvas.Ellipse(470,250,570,150);
end;
 
end.

var
  Form1: TForm1;
  var a,s,h,r1,r2:real;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text); //сторона треугольника
s:=a*a*sqrt(3)/4;
Edit2.text:=floattostrf(s,fffixed,8,3);
h:=a*sqrt(3)/2;
Edit3.text:=floattostrf(h,fffixed,8,3);
r1:=a*sqrt(3)/6;//описанная окружность
Edit4.text:=floattostrf(r1,fffixed,8,3);
r2:=a*sqrt(3)/3;
Edit5.text:=floattostrf(r2,fffixed,8,3);
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var xc,yc,i:integer;
    m:real;
begin
xc:=Image1.Width div 2;
yc:=Image1.Height div 2;
m:=(xc-50)/r2;
with Form1.Image1.Canvas do
 begin
  Moveto(10,yc); lineto(2*xc-10,yc);
  Moveto(xc,10);Lineto(xc,2*yc-10);
  Brush.Style:=bsClear;
  Polygon([Point(xc+round(r2*m*cos(-pi/6)),yc-round(r2*m*sin(-pi/6))),
           Point(xc+round(r2*m*cos(pi/2)),yc-round(r2*m*sin(pi/2))),
           Point(xc+round(r2*m*cos(7*pi/6)),yc-round(r2*m*sin(7*pi/6)))]);
  Ellipse(xc-round(r1*m),yc-round(r1*m),xc+round(r1*m),yc+round(r1*m));
  Ellipse(xc-round(r2*m),yc-round(r2*m),xc+round(r2*m),yc+round(r2*m));
 
 end; 
end;