program lr7_1;

{$APPTYPE CONSOLE}

uses
  SysUtils,math;

const
k=-3.3e-4;

var
t,x,x2,res:real;
begin
//x:=123.0;
writeln('enter x:');
readln(x);
x2:=x*x-5;
t:=tan(x);

try
res:=(k*t*logn(x2,10)*sqrt(abs(t))) / (power(x2,1/3)*x*exp((-2)*x));
writeln('res: ',res:10:3);
except
on einvalidop do writeln('error: undefined error with floating point')
else writeln('error')
end;

readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.