Прямоугольный треугольнк

[BDA]

3 вариант.

uses
  crt;

const
  pi = 3.14;

var
  x, y, z, al, alr, be, ber, a, b, c: real;

begin
  writeln('Input angle and length of the bisector:');
  readln(al, x);
  alr := al * pi / 180;
  be := 90 - al;
  ber := be * pi / 180;
  a := x / sin(alr);
  b := x / sin(ber);
  c := sqrt(a * a + b * b);
  y := a / cos(alr / 2);
  z := b / cos(ber / 2);
  writeln('Angles: ', al:0:2, ' 90.00 ', be:0:2);
  writeln('Sides: ', a:0:2, ' ', b:0:2, ' ', c:0:2);
  writeln('Bisectors: ', x:0:2, ' ', y:0:2, ' ', z:0:2);
  readln;
end.

Проверьте правильность счета.

[Sinner1994]

Большое спасибо очень выручили