Рассчитать значение, определив и использовав необходимую функцию. n вводится с клавиатуры. y= (1+sin(1))/3+(3+sin(3))/3+ +((2*n-1)+sin(2*n-1))/3 pascalabc

Var y:real; n,i:integer;
function f(x:real):real;
begin
f:=(x+sin(x))/3;
end;
begin
write('n = ');
readln(n);
y:=0;
for i:=1 to n do y:=y+f(2*i-1);
writeln('y = ',y);
end.

Пример:
n = 5
y = 8.69759060072172