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

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.