Треугольник задан длинами своих сторон – a, b, c. Определить является ли он тупоугольным, прямоугольным или остроугольным.

const

pi=3.14159265358979; 

var

a,b,c:integer;

cos1,cos2,cos3:real; 

begin

repeat 

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 ('The triangle doesnt exist'); 

until (a+b>c) and (a+c>b) and (b+c>a);

cos1:=((a*a+b*b-c*c)/(2*a*b))*180/pi;

cos2:=((a*a+c*c-b*b)/(2*a*c))*180/pi; 

cos3:=((b*b+c*c-a*a)/(2*b*c))*180/pi;

if (cos1=0) or (cos2=0) or (cos3=0) then writeln ('Прямоугольный') else

if (cos1<0) or (cos2<0) or (cos3<0) then writeln ('Тупоугольный') else

writeln ('Остроугольный');

readln; 

end.