Решение 

simplify(subs(x = 3, `+`(`/`(`*`(`+`(sqrt(x), 2)), `*`(sqrt(x))), `-`(`/`(`*`(2, `*`(sqrt(x))), `*`(x))), `-`(`*`(5, `*`(x))), 1))) 

-13 (16.2.1)