применимый

Ответ от Пірко Віталій[активный]
var a,b,c:real; begin readln(a,b,c); if (a=b) and (b=c) then writeln(\'treugolnik ravnostoroniy\') else writeln(\'treugolnik neravnostoroniy\'); if (a=b) or (a=c) or (b=c) then writeln(\'treugolnik ravnobedrenyi\') else writeln(\'treugolnik neravnobedrenyi\'); if (a<>b) and (b <>c) and (c <>b) then writeln(\'treugolnik raznostoroniy\') else writeln(\'treugolnik neraznostoroniy\') end.