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.