Решить через функциию,срочно,пожалуйста

Question

Решить через функциию,срочно,пожалуйста

---

Answer 1

Function f(x:real):real;
begin
f:=(x+sin(x))/(sin(x+3)+x+3);
end;
var y:real;
begin
y:=f(2)+f(3)+f(1);
writeln('y = ',y);
end.

Результат:
y = 1.83681707009073