Как найти угол треугольника в паскале

program Project1;
uses crt;
var csa,csb,csc,xa,xb,xc: real;
    a,b,c,u1,u2,u3: real;
begin
repeat
  Writeln('Введите а');
  Readln(a);
  Writeln('Введите b');
  Readln(b);
  Writeln('Введите c');
  Readln(c);
  if(a>=b+c)or(b>=a+c)or(c>=a+b) then
  writeln('Это не треугольник, повторите ввод');
until (a<b+c)and(b<a+c)and(c<a+b);
  csa:=(sqr(b)+sqr(c)-sqr(a))/(2*b*c);
  csc:=(sqr(a)+ sqr(b)-sqr(c))/(2*a*b);
  csb:=(sqr(c)+ sqr(a)-sqr(b))/(2*a*c);
  if csa=0 then u1:=90 else u1:=(arctan(sqrt(1-sqr(csa))/csa))*180/pi;
  if csb=0 then u2:=90 else u2:=(arctan(sqrt(1-sqr(csb))/csb))*180/pi;
  if csc=0 then u3:=90 else u3:=(arctan(sqrt(1-sqr(csc))/csc))*180/pi;
  writeln('Угол 1 = ',u1:0:1,'гр.');//Если не Паскаль АВС, то можно написать u1:0:1,#248
  writeln('Угол 2 = ',u2:0:1,'гр.');
  writeln('Угол 3 = ',u3:0:1,'гр.');
  readln;
 
end.

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.

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.