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 что сделать?
Неправильно заданное условие.
Попробуй так: if (a=b) and (b=c) then