Составить программу, которая определяет, является ли треугольник равносторонним.

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