Выведите на экран значение логического выражения, которое принимает значение true, если треугольник со сторонами a, b, cявляется равнобедренным, и false – в противном случае.
Var a,b,c:real;
begin
readln(a,b,c);
if (a=b) or (b=c) or (a=c) then writeln(true)
else writeln(false);
end.
Оцени ответ