Написать программу на pascal (вариант 2)

Составить программу нахождения корня уравнения с заданной точностью указанным методом. Если за заданное число шагов (по умолчанию взять 20) точность не будет достигнута, то вывести соответствующее сообщение и закончить вычисления, иначе вывести найденное значение корня, число шагов, за которое оно было найдено, и значение функции в корне.