program Project1;
var x, y:double;
begin
writeln('Enter x: ');
readln(x);
if (x>1) then
y:=ln(sin(x)+4)
else if (x<-4)then
y:=2*cos(x)-5*sin(x)
else y:=ln(3-sin(x));
writeln(y);
readln;
end.
