Не могу найти костыль

program treugolnik;
var a,b,c:Integer;
cos_ab,cos_bc,cos_ac,sin_ab,sin_bc,sin_ac,ab,bc,ac:real;
begin 
Write('a=');ReadLn(a);
Write('b=');ReadLn(b);
Write('c=');ReadLn(c);
if (a+b<c) or (a+c<b) or (b+c<a)
then
Writeln('треугольника не существует')
else
if (a=b) and (a=c) and (b=c)
 then Writeln('треугольник равносторонний  ')
else
if (a=b) or (a=c) or (b=c)
then
Writeln('треугольник равнобедренный')
else 
Writeln('треугольник ни равнобедренный, ни равносторонний');
begin
cos_ab:=((a*a)+(b*b)-(c*c))/(2*a*b);
Writeln('cos_ab=',cos_ab);
if cos_ab=0 then ab:=90 else ab:=(arctan(sqrt(1-sqr(cos_ab))/cos_ab))*180/pi;
sin_ab:=sin(ab*pi/180);
Writeln('sin_ab=',sin_ab);
writeln(' ugol_ab=',ab);
begin
cos_bc:=((c*c)+(b*b)-(a*a))/(2*c*b);
Writeln('cos_bc=',cos_bc);
if cos_bc=0 then bc:=90 else bc:=(arctan(sqrt(1-sqr(cos_bc))/cos_bc))*180/pi;
sin_bc:=sin(bc*pi/180);
Writeln('sin_bc=',sin_bc);
writeln(' ugol_bc=',bc);
begin
cos_ac:=((a*a)+(c*c)-(b*b))/(2*a*c);
Writeln('cos_ac=',cos_ac);
if cos_ac=0 then ac:=90 else ac:=(arctan(sqrt(1-sqr(cos_ab))/cos_ac))*180/pi;
sin_ac:=sin(ac*pi/180);
Writeln('sin_ac=',sin_ac);
writeln(' ugol_ac=',ac);
end;
end;
end;
end.

function angle(a,b,c:Real):Real;
var x:Real;
begin
  x:=(-sqr(a)+sqr(b)+sqr(c))/2/b/c;;
  angle:=arctan(sqrt(1-sqr(x))/x)*180/pi;
end;
 
var a,b,c:Integer;
begin 
  Write('a=');ReadLn(a);
  Write('b=');ReadLn(b);
  Write('c=');ReadLn(c);
  
  if (a+b<c) or (a+c<b) or (b+c<a) then
    Writeln('треугольника не существует')
  else if (a=b) and (a=c) and (b=c) then
    Writeln('треугольник равносторонний  ')
  else if (a=b) or (a=c) or (b=c) then
    Writeln('треугольник равнобедренный')
  else 
    Writeln('треугольник ни равнобедренный, ни равносторонний');
 
  WriteLn('угол лежащий против стороны a = ', angle(a,b,c));
  WriteLn('угол лежащий против стороны b = ', angle(b,c,a));
  WriteLn('угол лежащий против стороны c = ', angle(c,b,a));
end.