Составьте программу в паскаль, вводящую true, если высказывание является истинным, и false в противном случае : б)треугольник со сторонами a, b, с являются равносторонним.

Program n1;
var a,b,c: real;
begin
readln(a,b,c);
if (a=b) and (b=c) and (c=a) then writeln('true') else writeln('false');
end.