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

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.