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

Надеюсь, программу нужно составлять на паскале:program epicsinus;var x,y: real;beginwriteln('Введите x');readln(x);y:=sin(sqrt(x-1))-sin(sqrt(x+1));writeln('Ответ: y=', y);end.