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

program two;
var
a,b,c:integer;
begin
write('Введите стороны треугольника.');
readln(a,b,c);
if (a=b)and(b=c) then writeln('Треугольник равносторонний.') else Writeln('Треугольник не равносторонний.');
end.