Составление программы на паскале.

[kvkvk]

Нужно составить программу на паскале по блок-схеме (ТЕМА ВЛОЖЕНЫЕ ЦИКЛЫ).
блок схема и алгоритм прикреплены, а вот что у меня НЕ получилось может можно сдесь что-то исправить?

Program vl_cikl;
var
x, i, n, j: integer;
S, F : real;
begin
writeln ('Введите х');
readln (x);
S:=0; 
for i:=1 to 13 do
begin
F:=1;
for n:=0 to 6 do 
begin
F:=(2*n+1);
writeln ('F_промежуточное=', F:6:1);
end;
s:=s+power(-1,j)* ((power(x,i))/F);
writeln ('S_промежуточное=', s:0:5);
end;
writeln ('S=', s:0:5);
readln;
end.

[BDA]

var
  x, i, n, j: integer;
  S, F: real;

begin
  writeln('Введите х');
  readln(x);
  S := x;
  F := x;
  i := 3;
  while i <= 13 do
  begin
    F := -F * x * x / (i * (i - 1));
    S := S + F;
    writeln('S_промежуточное=', S:0:5);
    inc(i, 2);
  end;
  writeln('S=', S:0:5);
  readln;
end.

[kvkvk]

Спасибо большое!

[kvkvk]

объясните один момент пожалуйста почему промежуточные значения равны?

[BDA]

Пожалуйста.
Потому что факториал очень быстро растет. Из-за этого последние члены суммы равны практически нулю.

[kvkvk]

Еще раз благодарю.