Помогите с информатикой, а то у меня не очень с этим предметом

var

f, x:real;

begin

x:=3;

f:=(sqr(x+1)+2*(x+1))/(4*sin(x));

writeln(f);

end.