Question

Вот это строчка 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.

Answer 1

А вот так работать будет:

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.