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

-,андрей!

-,паша!

-как у тебя дела?

-у меня всё хорошо,а ты как?

-у меня всё отлично. что спросил

-не за что.пойдёшь сегодня гулять?

-да,конечно.а во сколько?

-в 5 часов.

-хорошо.ладно пока.

пока.встретимся на улице

-хорошо.