Вычислить сумму ряда - Pascal ABC (13050)

Формулировка задачи:

Не могу понять как написать данную программу, помогите пожалуйста. Дано целое число n, действительное число х. Вычислить: S = Sin x + Sin x2 + Sin x3 + .....+ Sin xn

Решение задачи: «Вычислить сумму ряда»

Листинг программы

var
    i, n: LongWord;
    x: Single;
    s, xn: Extended;
begin
    repeat
        Write('Input n (>0): ');
        ReadLn(n);
    until (n > 0);
    Write('Input x: '); ReadLn(x);
    s := 0; xn := 1;
    for i := 1 to n do
    begin
        xn := xn * x;
        s := s + Sin(xn);
    end;
    WriteLn('S=', s:0:2);
end.

Объяснение кода листинга программы

В начале кода объявлены переменные: i, n, x, s, xn.
Затем идет цикл repeat, который будет выполняться до тех пор, пока n больше 0.
Внутри цикла запрашивается ввод значения n и сохраняется в переменной n.
Затем запрашивается ввод значения x и сохраняется в переменной x.
Переменные s и xn инициализируются нулем и единицей соответственно.
Далее идет цикл for, который выполняется от 1 до n.
Внутри цикла значение xn умножается на x, а результат сохраняется в переменной xn.
Затем значение xn добавляется к s, и результат сохраняется в переменной s.
После завершения цикла for, значение s выводится на экран.
Код заканчивается вызовом WriteLn для вывода строки 'S=', за которой следует значение s, округленное до двух знаков после запятой.