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