Треугольник задан длинами сторон. Найти углы треугольника в Паскале

var

a, b, c: real;

ugol_alpha, ugol_betta, ugol_gamma: real;

begin

write ('введите a: ');

readln (a);

write ('введите b: ');

readln (b);

write ('введите c: ');

readln (c);

if a*a+b*b-c*c=0 then writeln ('Данные не корректны!') else begin

ugol_aplha : = arccos ( - ((sqr (a) - sqr (b) - sqr (c)) / 2*b*c));

ugol_betta:=arccos ( - ((sqr (b) - sqr (a) - sqr (c)) / 2*a*c));

ugol_gamma:=arccos ( - ((sqr (c) - sqr (a) - sqr (b)) / 2*a*b));

write ('альфа=', ugol_alpha,' бетта=', ugol_betta:0:2,' гамма=', ugol_gamma:0:2);

end;

end.