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

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, c: integer;
  res, pp: double;
begin
  a := SpinEdit1.Value;  // Ввод стороны a
  b := SpinEdit2.Value;  // Ввод стороны b
  c := SpinEdit3.Value;  // Ввод стороны c
  if (a<=0) or (b<=0) or (c<=0) then begin // Если одна из сторон меньше или равна 0, то
    ShowMessage('Размер стороны должен быть положительным числом!');
    Exit; // Выход из процедуры
  end;
  if (a >= b+c) or (b >= a+c) or (c >= a+b) then begin // если одна из сторон равна или длинее суммы двух других сторон
    ShowMessage('Длина одной из сторон больше или равна сумме длин двух других сторон!');
    Exit; // Выход из процедуры
  end;
 
  Memo1.Lines.Clear;
  // Периметр треугольника
  res := a+b+c;
  Memo1.Lines.Add('Периметр треугольника равен: ' + FloatToStr(res));
 
  // Площадь треугольника
  pp := res/2; // pp - полупериметр
  res := sqrt(pp*(pp-a)*(pp-b)*(pp-c));
  Memo1.Lines.Add('Площадь треугольника равен: ' + FloatToStr(res));
 
  // Углы треугольника
  res := (2*arctan(sqrt((pp-b)*(pp-c)/(pp*(pp-a)))))*(180/pi); // Угол напротив стороны a, в градусах
  Memo1.Lines.Add('Угол напротив стороны a равен: ' + FloatToStr(res) + ' градусов');
  res := (2*arctan(sqrt((pp-a)*(pp-c)/(pp*(pp-b)))))*(180/pi); // Угол напротив стороны b, в градусах
  Memo1.Lines.Add('Угол напротив стороны b равен: ' + FloatToStr(res) + ' градусов');
  res := (2*arctan(sqrt((pp-b)*(pp-a)/(pp*(pp-c)))))*(180/pi); // Угол напротив стороны c, в градусах
  Memo1.Lines.Add('Угол напротив стороны c равен: ' + FloatToStr(res) + ' градусов');
end;

Memo1.Lines.Add('Угол напротив стороны a равен: ' +formatfloat('0.00',res)+'°')//Alt+248 );

res:=2*arctan(sqrt((pp-b)*(pp-c)/(pp*(pp-a))));
Memo1.Lines.Add('Угол напротив стороны a равен: '+formatfloat('0.00',radtodeg(res))+'°')//Alt+248 );