program lab1;

{APPTYPE CONSOLE}

used
windows;

var x,y:real;
begin
writeln('x=?'); readln(x);
y:=((abs((7.2)-10*x))/ exp(1/3*ln((x/9)+(exp(2*x))))*arctan((4*sin(2*x)/cos(2*x))/(sqrt((1.1)*exp(3/1*ln(x))))));
writeln('y = ', y:10:5);
write('Press ENTER...'); readln;
end.