var
a, b, c: real;
procedure Traingle(a, b, c: real); {Процедура с входными параметрами - размерами сторон}
begin
if (a = b) or (a = c) or (b = c) then writeln('Истинно') {Если хотя бы две из трех сторон равны, то треугольник равнобедренный}
else writeln('Ложно');
end;
writeln('Введите стороны треугольника a, b, c');
readln(a, b, c);
Traingle(a, b, c);
end.
var
a, b, c: real;
procedure Traingle(a, b, c: real); {Процедура с входными параметрами - размерами сторон}
begin
if (a = b) or (a = c) or (b = c) then writeln('Истинно') {Если хотя бы две из трех сторон равны, то треугольник равнобедренный}
else writeln('Ложно');
end;
begin
writeln('Введите стороны треугольника a, b, c');
readln(a, b, c);
Traingle(a, b, c);
end.