Информатика

Фира

21 октября, 18:09

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

что сделать?