Даны действительные положительные числа a, b, c, которые задают длины сторон треугольника и угол между ними. Напишите программу (Паскаль), позволяющую найти длину третьей стороны треугольника и два остальных угла.  

var   a, b, c, aa, ab, ac : real; function Arcsin (x : real) : real; begin Arcsin := Arctan(x/Sqrt(1-sqr(x))); end; //магия. в паскале нет функции арксинус или арккосинус, поэтому приходится выражать через арктангенс. begin   read (a, b, ac);   ac := ac  * pi / 180; // перевод в радианы   c := sqrt (sqr (a) + sqr (b) - 2 * a * b * cos (ac));   aa := arcsin (a * sin (ac) / c);   ab := pi - aa - ac;   writeln (a, ' ', b, ' ', c);   writeln (aa * 180 / pi, ' ', ab * 180 / pi, ' ', ac * 180 / pi); end.