ВОПРОС НА 100 БАЛЛОВ
var a,b,c,p:real;
begin
writeln('введите размеры треугольника a,b,c');
read(a,b,c);
p: = a+b+c;
if (a = b = c)then
begin writeln('треугольник равносторонний');
writeln('периметр треугольника',p);
end
else writeln ('треугольник не равносторонний');
end.

Ошибка Операция ' = ' не применима к типам boolean и real
что делать?

Если Вашу программу исправить, это так будет выглядеть:
var a,b,c,p:real;
begin
writeln(введите размеры треугольника a,b,c);
read(a,b,c);
p:=a+b+c;
if (a=b) and (a=c)then
begin writeln(треугольник равносторонний);
writeln(периметр треугольника,p);
end
else writeln (треугольник не равносторонний);
end.

А если написать самостоятельно, я бы сделал так:
var
  a,b,c:real;
begin
  Write(Введите размеры треугольника a,b,c: ); Read(a,b,c);
  if (a=b) and (a=c) then
    Writeln(Треугольник равносторонний с периметром ,3*a)
  else Writeln (Треугольник не равносторонний)
end.