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