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