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

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