Даны натуральные числа a,b,c. Проверьте существует ли треугольник величины углов, которого в градусах при положительном результате установит вид треугольника: остроугольный, тупоугольный, прямоугольный? это в программе pascal

могу одно сказать существует)

var a,b,c,angA,angB,angC,cs: real;     s: string; begin   write('длины сторон через пробел:  ');   readln(a,b,c);   if (a+b>c) and(a+c>b) and (c+b>a) then   begin     cs:=(sqr(a)+sqr(b)-sqr(c))/(2*a*b);     angC:=360*ArcCos(cs)/(2*pi);     writeln('угол С = ',angC:4:2);     cs:=(sqr(a)+sqr(c)-sqr(b))/(2*a*c);     angB:=360*ArcCos(cs)/(2*pi);     writeln('угол B = ',angB:4:2);     angA:=180-angB-angC;     writeln('угол A = ',angA:4:2);     if (angA<90) and (angB<90) and (angC<90) then        s:='треугольник остроугольный';     if (angA>90) or (angB>90) or (angC>90) then        s:='треугольник тупоугольный';     if (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or        (sqr(b)+sqr(c)=sqr(a)) then        s:='треугольник прямоугольный';        writeln(s);      end   else writeln('треугольник составить нельзя'); end.