Программа в паскаль АВС определите вид треугольника по известным углам при этом если сумма углов не равна 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.