цикл for(паскаль)

[Prime123]

Можно и так:

var 
x,i,a:integer; 
s:real;
begin
readln(x);
a:=x;
s:=x;
for i:=1 to 6 do
begin
a:=a*(sqr(x)/(i*(2*i+1)));
s:=s+a;
end;
writeln(s);
end.

Но,годится только для указанного вами конечного ряда,если ряд бесконечный,то нужно будет вычислять модуль разности n-го и (n+1)-го элемента:это будет условием прекращения цикла