Проект в Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
s,a,h,x,y,b:extended;
begin
y:=strtofloat(edit1.Text);
x:=strtofloat(edit2.Text);
if y=a then
x:=a;
s:=sqrt(3)/4*a*a;
h:=sqrt(a-(a/2));
if y=s then
x:=s;
a:=sqrt(3)/4/s/s;
h:=sqrt(a-(a/2));
if y=h then
x:=s;
a:=sqrt(3)/4/s/s;
s:=sqrt(3)/4*a*a;
memo1.Lines.add('h='+floattostrf(h,fffixed,8,3)+'   
a='+floattostrf(a,fffixed,8,3)+'  
 s='+floattostrf(s,fffixed,8,3));
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,s,h:real;
begin
if Radiobutton1.Checked then
 begin
  a:=StrToFloat(Edit1.Text);
  s:=a*a*sqrt(3)/4;
  h:=2*s/a;
  Memo1.Clear;
  Memo1.Lines.Add('Площадь='+FloatToStrF(s,ffFixed,0,2));
  Memo1.Lines.Add('Высота ='+FloatToStrF(h,ffFixed,0,2));
 end
else if Radiobutton2.Checked then
 begin
  s:=StrToFloat(Edit1.Text);
  a:=2*sqrt(s/sqrt(3));
  h:=2*s/a;
  Memo1.Clear;
  Memo1.Lines.Add('Сторона='+FloatToStrF(a,ffFixed,0,2));
  Memo1.Lines.Add('Высота ='+FloatToStrF(h,ffFixed,0,2));
 end
else if Radiobutton3.Checked then
 begin
  h:=StrToFloat(Edit1.Text);
  a:=2*h/sqrt(3);
  s:=a*h/2;
  Memo1.Clear;
  Memo1.Lines.Add('Сторона='+FloatToStrF(a,ffFixed,0,2));
  Memo1.Lines.Add('Площадь ='+FloatToStrF(s,ffFixed,0,2));
 end
end;