Вот это строчка if b=c or c=a then, если просто b=c, a не работает program treygolnik; var a, b, c: integer; begin read(a,b,c); if b=c or c=a then begin writeln('треугольник равносторонний'); end else begin writeln ('треугольник не равносторонний') end; end.
program treygolnik;
var a, b, c: integer;
begin
read(a,b,c);
if (b=c) or (c=a) then
begin
writeln('треугольник равносторонний');
end
else
begin
writeln ('треугольник не равносторонний')
end;
end.