Заданы стороны треугольника a, b, c. Определить является ли он равносторонним. Напис

Var a,b,c:integer; begin writeln('Введите три числа:'); readln(a,b,c); if (a=b)and(b=c)  then writeln('Треугольник равносторонний')  else writeln('Треугольник не равносторонний (а может и не треугольник)'); end. Пример: Введите три числа: 5 5 5 Треугольник равносторонний