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 что сделать?