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

Var a,b,c:integer;
begin
readln(a,b,c);
if (a=b) and (b=c) and (a=c) then write('Равносторонний')
else write('Не равносторонний');
end.