var a,b,c:integer; x,y,z:string; begin writeln('Введите стороны треугольника'); readln(a,b,c); x:='равнобедренный'; y:='равносторонний'; z:='разносторонний'; begin if (c=b) and (a<>c) then writeln('Треугольник',' ',x); if (a=c) and (a<>b) then writeln('Треугольник',' ',x); if (a=b) and (a<>c) then writeln('Треугольник',' ',x); if (a=b) and (a=c) and (b=c) then writeln('Треугольник',' ',y); if (a<>b) and (a<>c) and (b<>c) then writeln('Треугольник',' ',z); end; readln end.