Проверьте, правильно ли сделал. Прога пишет, что вместо 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.