[Medion]

Здравствуйте уважаемые программисты, не могли бы вы помочь.
Нужно решить нелинейное уравнение методом ньютона в delphi lazarus.
3*tan(x)-1/3=0. [0.2;1]

Интервал и точность задается с клавиатуры.
Помогите пожалуйста