Написать прогу в паскале, которая решает при значении выводит ()/(ln(1+x^2)) в паскаль

Var
x:integer;
y:double;
begin
Readln(x);
y=2*(Sin(3*x)/Cos(3*x))-(Ln(Cos(x))/(Ln(1+Sqr(x));
Writeln(y);
end;

Вроде бы так