Введите три стороны треугольника. Определите вид (равнобедренный, разносторонний,

Язык?

Паскаль

"и т. п." - это какие виды? А то по граням вроде только 3 перечисленных выше.

да блин

На данный момент

обнови страничку

так записано у меня

Var a,b,c : integer;
begin 
readln (a,b,c);
if (not (a=b)) and (not (b=c)) and  (not (a=c))  then writeln('разносторонний')
else if ((a=b) and (not (b=c)) and (not (a=c))) or  ((b=c) and (not (b=a)) and (not (c=a))) or  ((a=c) and (not (a=b)) and (not (c=b))) then writeln('равнобедренный')
else writeln('равносторонний');
readln;
end.