задача в лазарусе

[Invok]

Известны длины сторон треугольника a, b и с. Вы-
числить площадь S, периметр P и величины углов α, β и γ треуголь-
ника

настрочил не вдумываясь код

procedure TForm1.Button1Click(Sender: TObject);
var a, b, c, alfa, betta, gamma, S, r: real; arccos, arcsin:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
r:=(a+b+c)/2;
S:=sqrt(r*(r-a)*(r-b)*(r-c));
alfa:=arccos((sqr(b)+sqr(c)-sqr(a))/2/b/c);
betta:=arcsin(b/a*sin(alfa));
gamma:=pi-(alfa+betta);
alfa:=alfa*180/pi;
betta:=betta*180/pi;
gamma:=gamma*180/pi;
Label6.Caption:='alfa='+FloatToStrF(alfa,ffFixed,3,0);
Label7.Caption:='betta='+FloatToStrF(betta,ffFixed,3,0);
Label8.Caption:='gamma='+FloatToStrF(gamma,ffFixed,3,0);
Label9.Caption:='Периметр P='+FloatToStrF(2*r,ffFixed,5,2);
Label10.Caption:='Площадь S='+FloatToStrF(S,ffFixed,5,2);
end;

[Invok]

Тема закрыта, разобрался))