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

Question

Пожалуйста помогить написать прогу в паскале, которая решает при значении х...и выводит ответ...2ctg(3x)-(lncosx)/(ln(1+x^2)) в паскаль

Answer 1

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;

Вроде бы так