Решение нелинейного уравнения

[Medioon]

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

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

[Medioon]

uses crt;
function F(x:real):real;
begin
F:=3*tan(x)-1/3;
end;
function F1(x:real):real;
begin
F1:=3/power(cos(x),2);
end;
function Newton(x1,e:real):real;
var x2,b:real;
begin
x2:=x1;
repeat
b:=x2;
x2:=b-F(b)/F1(b);
until abs(x2-b)>e;
Newton:=x2;
end;
var a,eps:real;
begin
clrscr;
write('Vvedite nachalnoe priblizenie a=');
readln(a);
write('Vvedite tochnost eps=');
readln(eps);
write('X=',Newton(a,eps):0:5);
readln
end.

У меня есть программа в паскале, как мне сделать ее в lazarus?