Найти заданные суммы - Turbo Pascal

Дано натуральное число N и вещественное x. Вычислить Функцию pow() не использовать. РЕбята помогите пожалуйста!

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

s1:=0;
p:=1;
for i:=1 to n do
 begin
  p:=p*sin(x);
  s1:=s1+p;
 end;

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

Переменная s1 инициализируется значением 0.
Переменная p инициализируется значением 1.
Запускается цикл for, который выполняется n раз, где n - неизвестное число.
Внутри цикла выполняется следующая операция:
- Переменная p перемножается на sin(x), где x - неизвестное число.
- Результат умножения сохраняется в переменной p.
- Переменная s1 увеличивается на значение переменной p.
После завершения цикла, переменная s1 содержит сумму всех значений переменной p.
Код завершается. Примечание: В данном коде нет вложенных списков.