Напишите пожалуйста программу паскаль (подробно) По известным углам Определите вид...

Question

Напишите пожалуйста программу паскаль (подробно)
По известным углам Определите вид треугольника (остроугольный, прямоугольный, тупоугольный)
Пожалуйста
15 баллов))) помогите

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var (a,b,c):=ReadReal3('введите 3 угла через пробел в градусах: ');
var t:=max(max(a,b),c);
write('треугольник');
if a+b+c<>180 then write(' не существует') else if t>90 then write(' тупоугольный') else if t=90 then write(' прямоугольный') else write(' остроугольный');
end.