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

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.