Помогите пожалуйста по информатике. Паскаль. 30б.

Var x,y:real;

begin

 writeln('Введите целое число x: ');

 readln(x);

 y:=(sqr(2)-15)/sin(3*x+2);

 writeln('Результат: ',y)

end.