Треугольник со сторонами a, b, c является равносторонним

Чтобы решить задачу, необходимо вспомнить, что у равностороннего треугольника все стороны равны.

Используя эти знания и применив условный оператор получим:

program u_1;
var a,b,c:real;
begin
write('Введите стороны треугольника через пробел: ');
read(a, b, c);
if ((a=b) and (b=c)) then write('Треугольник равносторонний')
  else write('Треугольник неравносторонний');
end.