Данны размеры сторон тругольника ю Вывести на экран при помощи function или procedure(на выбор) слово истинно если треугольник равнобедренный и ложноесли треугольник не равнобедренный.
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.
