Проверьте, правильно ли сделал. Прога пишет, что вместо else должен быть оператор.

program qq;
var a,b,c:integer;
begin
writeln('Введите три угла');
readln(a,b,c);
if(a+b+c)<>180 then
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('Тупоугольный треугольник');
else writeln('Остроугольный');
end.

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.

Должно быть так