Написать программу существования треугольника по заданным длинам сторон, используя if, else. Является треугольник равносторонним и равнобедренным

Var

a, b, c:integer;

begin

Writeln ('Введите стороны треугольника') ;

readln (a, b, c) ;

if (a=b) and (ac) then writeln ('Треугольник равнобедренный')

else if (a=b) and (a=c) then writeln ('Треугольник равносторонний')

else writeln ('Треугольник разносторонний') ;

end.