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

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