Вычислить значение выражения

program Project1;
 
var
  n: integer;  {Переменная для хранения значения натурального числа}
  i: integer;  {Вспомогательная переменная для организации цикла}
  a: real;     {Переменная для хранения значения аргумента}
  s1,s2: real;     {Вспомогательные переменные для вычисления последовательности}
  flag: boolean;  {Вспомогательная переменная для организации ввода данных}
begin
  write('Введите натуральное число N: ');
  readln(n);
  repeat
    flag:= true;
    write('Введите действительное число а: ');
    readln(a);
    for i:= 0 to n do
      if a = -i then
        begin
          writeln('Аргумент не входит в область определимости!');
          flag:= false;
        end;
  until flag;
  s1:= 1;                 { Начальные установки переменных}
  s2:= 1/a;
  for i:= 1 to n do
    begin
      s1:= s1*(a+i);       { Вычисление последовательности}
      s2:= s2 + 1/(a*s1);
    end;
  writeln('Результат вычислений: ', s2:0:4);
  Readln;
end.