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

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