Программирование итерационных процессов

uses crt;
var x,t,s:real;
    n:integer;
begin
clrscr;
write('x=');
readln(x);
write('n=');
readln(n);
t:=1;
s:=1;
for n:=1 to n do
 begin
  t:=t*x*x/n;
  s:=s+t*(2*n+1);
 end;
write('S=',s:0:4)
end.

t:=t*x*x/n;
  s:=s+t*(2*n+1);

t:=1; //первый член
s:=1; //первая сумма
for n:=1 to n do
 begin
  t:=t*x*x/n;//следующий член умножаем на x^2 и делим на n, получаем x^(2n+1)/n!
  s:=s+t*(2*n+1); //умножаем на 2n+1 и прибавляем
 end;

for n:=1 to n do

var i:integer;
 ................
 for i:=1 to n do
 begin
  t:=t*x*x/i;//следующий член умножаем на x^2 и делим на i, получаем x^(2i+1)/i!
  s:=s+t*(2*i+1); //умножаем на 2i+1 и прибавляем
 end;

for n:=1 to n do

uses crt;
var x,t,s:real;
    i:integer;
begin
clrscr;
write('x=');
readln(x);
write('n=');
readln(n);
t:=1;
s:=1;
for i:=1 to n do
 begin
  t:=t*x*x/i;
  s:=s+t*(2*i+1);
 end;
write('S=',s:0:4)
end.

uses crt;
var x,n,t,s:real;
    i:integer;
begin
clrscr;
write('x=');
readln(x);
write('n=');
readln(n);
t:=1;
s:=1;
for i:=1 to n do
 begin
  t:=t*x*x/i;
  s:=s+t*(2*i+1);
 end;
write('S=',s:0:4)
end.

n:integer;

uses crt;
var x,t,s:real;
    i:integer;
    n:integer;
begin
clrscr;
write('x=');
readln(x);
write('n=');
readln(n);
t:=1;
s:=1;
for i:=1 to n do
 begin
  t:=t*x*x/i;
  s:=s+t*(2*i+1);
 end;
write('S=',s:0:4)
end.