программа в паскаль АВС определите вид треугольника по известным углам при этом если сумма углов не равна 180 градусов,то программа должна сообщить,что введены некорректные данные,проверьте условие

спасибо

var a,b,c:real;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=b)and(b=c) then writeln('равносторонний')else  if (a=b)or(b=c)or(a=c) then writeln('равнобедренный')else  writeln('разносторонний')end.