Помогите, пожалуйста, очень срочно!Нужен только 13 номер

--------------

Из всего этого спокойно выражаются углы.

------------------------

var s,a,b,c,ua,ub,uc,otn:real;

//-----------------

function arcsin(x:real):real;

begin

 arcsin:=arctan(x/Sqrt(1-sqr(x)));

end;

//---------------------

function deg(x: real):real;

begin

deg:=round(1000*x*180/pi)/1000;  

end;

//-------------

begin

 readln(s,a,c);

 ub:=arcsin(2*s/c/a);

 b:=sqrt(sqr(a)+sqr(c)-2*a*c*cos(ub));

 otn:=b/sin(ub);

 uc:=arcsin(c/otn);

 ua:=arcsin(a/otn);

 writeln('альфа= ',deg(ua),'°');

 writeln('бета= ',deg(ub),'°');

 writeln('гамма= ',deg(uc),'°');

end.