Вычислить значение выражения:f (x)=tgx^2*sin(1-3x)

Question

Вычислить значение выражения:f (x)=tgx^2*sin(1-3x)

Answer 1

Var
    x: real;

begin
    readln(x);
    writeln(Tan(x) * tan(x) * sin(1 - 3 * x));
end.