Cоставить программу вычисления значения выражения: y=sin√x-1 -sin √x+1

Надеюсь, программу нужно составлять на паскале:

program epicsinus;
var x,y: real;
begin
writeln('Введите x');
readln(x);
y:=sin(sqrt(x-1))-sin(sqrt(x+1));
writeln('ответ: y=', y);
end.