program qq;
var a,b,c:integer;
begin
writeln('Введите три угла');
readln(a,b,c);
if(a+b+c)<>180 then
writeln('Не может быть треугольником');
else (a=90) or (b=90) or (c=90)then
writeln('прямоугольный треугольник');
else (a>90) or (b>90) or (c>90)then
writeln('Тупоугольный треугольник');
else writeln('Остроугольный');
end.
Должно быть так