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

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

можете решить это: y=x*sin(pi/2)-((x^2*sin(pi/2))/2)+((x^3*sin(pi/2))/3)-...+((x^15*sin(pi/2))/15);

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

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

var
  n: integer;
  x, k, sum: real;
 
begin
  readln(x);
  k := -1;n := 1;
  while n <= 15 do
  begin
    k := -k * x;
    sum := sum + k / n;    
    inc(n);
  end;
  writeln('Сумма: ', sum);
end.

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

Объявление переменных:
- n - целое число (integer)
- x, k, sum - вещественные числа (real)
Считывание значения переменной x с клавиатуры.
Установление начальных значений переменных:
- k устанавливается равным -1
- n устанавливается равным 1
Цикл, который выполняется, пока значение n не превысит 15:
- k умножается на -x (изменение знака переменной k с каждой итерацией)
- Значение переменной sum увеличивается на значение k деленное на n
- Увеличение значения переменной n на 1 (при помощи функции inc)
Вывод результата вычислений: выводится значение переменной sum с текстовым сообщением Сумма:.