Написать программу на Pascal

 program CyclicAlgorithm; 
 
uses crt; 
 
var 
  S: Real;          // Переменная для хранения суммы ряда 
  N, i: Integer;    // N - количество членов ряда, i - счетчик цикла 
  Sign: Integer;     // Знак текущего элемента ряда 
 
begin 
  ClrScr; 
   
  Write('Введите количество членов ряда (N): '); 
  Readln(N); 
   
  S := 0.0;         // Инициализация суммы ряда 
  Sign := -1;       // Первый элемент отрицательный 
   
  for i := 0 to N-1 do 
  begin 
    S := S + Sign * (1 / (2*i + 3));  // Добавление текущего члена ряда к сумме 
    Sign := -Sign;                   // Изменение знака для следующего элемента 
  end; 
   
  Writeln('Сумма ряда: ', S:0:6); 
  Readln; 
end. 
 

 program p;
var n, i: integer;
    s: real;
begin
  read(n);
  s := 0.0;
  for i := n downto 1 do
    s := 1.0 / (2 * i + 1) - s;
  write(-s)
end.