Помогите пожалуйста, это в Паскале нужно сделать
Определитель,является ли треугольник со сторонами а,b,c равносторонним Заранее спасибо

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