Найти корень уравнения

Цикл с предусловием и постусловием (PascalABC.NET).

Найти корень уравнения ln x - x + 1,8 = 0 на отрезке [2;3] с точностью 1e-5. Сколько итераций потребовалось для решения?