помогите, итерационные циклы Опции

[Гость]

Помогите! Необходимо найти сумму членов ряда с точностью до члена ряда меньше Е.
z=sinx/4 + sin2x/9 + sin3x/16 + … +sinnx/((n+1)^2)+….
Задачу необходимо решить двумя вариантами: 1) без использования функций, 2) с использованием. Помогите хоть с каким-то вариантом разобраться!

Program L;
const E=0.00001;
var
i,n:integer;
a1,k, a,d,s,x:real;
begin
write('Vvedit znachenie x: ');
readln(x);
write('Vvedit znachenie n: ');
readln(n);
n:=1;
d:=sqr(n+1);
a1:=sin(n*x)/d;
while abs(a1)>E do
begin
for i:=1 to n do
begin
i:=i+1;
a:=(sin(x*i)/sqr(i+1))+a1;
end;
s:=0;
s:=s+a;
end;
writeln('a1= ',a1);
writeln('a= ',a:10:6);
writeln('s= ',s:10:5);
readln;
end.