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

//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.