Ну дык так и пиши
Код
var x:real;
begin
   ReadLn(x);
   WriteLn(1-x+sin(x)-ln(x+1));
end.