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

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.