Разложение в ряд Тейлора - Pascal ABC (12686)

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

Найти сумму ряда S=1/1!-1/3!+1/5!-... Значение x и членов ряда(n) задать с клавиатуры. Буду благодарен

Решение задачи: «Разложение в ряд Тейлора»

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

var n,i:integer;
    f,s:real;
begin
write('n=');
readln(n);
f:=1;
s:=f;
for i:=2 to n do
 begin
  f:=-f/(2*i-2)/(2*i-1);
  s:=s+f;
 end;
write('S=',s:0:5)
end.

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

Переменная n и i являются целочисленными типами данных и используются для итерации цикла.
Переменные f и s являются числами с плавающей точкой (real) и инициализируются как 1 и 0 соответственно.
Цикл for начинается с i равным 2 и продолжается до n (включительно).
Внутри цикла переменная f вычисляется как -f/(2i-2)/(2i-1), что является частным от деления на 2.
Значение переменной f затем добавляется к переменной s, что дает сумму f и s.
После завершения цикла, значение переменной s выводится на экран.