Информатика паскаль sin корень из х+1-sin корень из х-1

Var
  x: real;
 begin
  readln(x);
  write(sin(sqrt(x) + 1) - sin(sqrt(x) - 1));
end.