program Project1;

uses
  SysUtils;
var x,y:real;
begin
write('x='); readln(x);
if(x>1) then y:=cos(x)/(x*x*x+3*sin(x)+8)
else y:=x*x*x+3*sin(x)+8
writeln('y=', y:0:3);
Readln;
end.