// PascalABC.NET 3.6.3
begin
var x := ReadReal;
var y :=
if x < -4 then 2 * Cos(x) - 5 * Sin(x)
else if x > 1 then Ln(Sin(x) + 4)
else Ln(3 - Sin(x));
Print(y)
end.
// PascalABC.NET 3.6.3
begin
var x := ReadReal;
var y :=
if x < -4 then 2 * Cos(x) - 5 * Sin(x)
else if x > 1 then Ln(Sin(x) + 4)
else Ln(3 - Sin(x));
Print(y)
end.