Помогите пожалуйста:
Напишите программу на Паскале:
Дано действительное число x. Вычислить: x - x³/3! + x^5/5! - x^7/7! + x^9/9! - x^11/11! + x^13/13!
Проходим циклы, с заданным числом повторений. Учитель сказал, что здесь нужны итерационные циклы. Помогите пожалуйста, буду благодарен). Только напишите, если можно, полностью программу.

Var   i,j:integer;   F,St,x,S:real;BeginWrite('x = ');ReadLn(x);For i:= 1 to 7 do    Begin    St:=1;    For j:= 1 to 2*i-1 do        St:=St*x;    F:=1;    For j:= 1 to 2*i-1 do        F:=F*j;    if i mod 2 = 1 then S:=S+St/F    else S:=S-St/F    End;WriteLn('S = ',S)End.