Это в паскале нужно сделать определитель,является ли треугольник со сторонами а,b,c равносторонним заранее

Var a, b, c: real;
begin
write('Введите a, b, c>>');
read(a, b, c);
if (a=b) and (b=c) then writeln('Треугольники равносторонние')
else writeln('Треугольники не равносторонние');
end.