Решить в паскале (y= 3^x-1.4 + e^x / 4.5 +x) дробное выражение +tg3x

Var  x,y:real;begin  Writeln ('Введите число');  Read(x);    y:= (power(3,x)-1.4+exp(x)/4.5+x)/tan(3*x);    Writeln('результат', y);end.