PROGRAM Triangle;
const i=2;  {варіант розрахунків для p2}
var a ,b ,c,        {сторони трикутника}
    A_,B_,C_: real;    {кути трикутника}

function arccos(x: Real): Real;
begin
  if x<=-1         then arccos:=pi                              else
  if x< -1/sqrt(2) then arccos:=pi   + arctan(sqrt(1-sqr(x))/x) else
  if x<= 1/sqrt(2) then arccos:=pi/2 - arctan(x/sqrt(1-sqr(x))) else
  if x<  1         then arccos:=arctan(sqrt(1-sqr(x))/x)
                   else arccos:=0
end;

function arcsin(x: Real): Real;
begin
  if x <=-1         then arcsin:=-pi  else
  if x < -1/sqrt(2) then arcsin:=-pi/2-arctan(sqrt(1-sqr(x))/x) else
  if x <= 1/sqrt(2) then arcsin:=arctan(x/sqrt(1-sqr(x)))       else
  if x <  1         then arcsin:=pi/2-arctan(sqrt(1-sqr(x))/x)
                    else arcsin:=pi/2
end;

function f4(B,C: real): real;
begin
  f4:=pi-B-C
end;

function f5(a,b,C: real): real;
begin
  f5:=Sqrt(Sqr(a)+ Sqr(b)-2*a*b*cos(C));
end;

function f6(a,b,c: real): real;
begin
  f6:=(Sqr(a)+Sqr(b)-Sqr(c))/(2*a*b);
end;

function f7(a,b,B_: real): real;
begin
  f7:=sin(B_)*a/b;
end;

function f8(A_,b,B_: real): real;
begin
  f8:= b*sin(A_)/sin(B_);
end;

BEGIN
write('Ввести довжини сторін, а потім - градусні міри відповідних внутрішніх кутів трикутника ');
readln(a,b,c,A_,B_,C_);
A_:=A_*Pi/180;
B_:=B_*Pi/180;
C_:=C_*Pi/180;
writeln('Сторони:           ', a:8:3, b:8:3, c:8:3);
writeln('Кути (у радіанах): ',A_:8:3,B_:8:3,C_:8:3);

{Сюди вставити виклики процедур і функцій}

writeln('Сторони:           ', a:8:3, b:8:3, c:8:3);
writeln('Кути (у радіанах): ',A_:8:3,B_:8:3,C_:8:3);
A_:=A_*180/Pi;
B_:=B_*180/Pi;
C_:=C_*180/Pi;
writeln('Кути (у градусах): ',A_:8:3,B_:8:3,C_:8:3);
END.