Держи
var a,b,c: real;
begin
writeln ('Введите углы искаемого треугольника');
readln (a,b,c);
IF a+b+c=180 then
begin
if (a<90) and (b<90) and (c<90) then <br>writeln ('Треугольник является остроугольным ')
else
if (a=90) OR (b=90) OR (c=90) then
writeln('Треугольник является прямоугольным')
else
if (a>90) or (b>90) or (c>90) then
writeln ('Треугольник является тупоугольным')
end
else
writeln ('Треугольника не существует');
readln
end.