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.