Программа

CONST Eps=0.0001;                     { Точность вычислений }
VAR X,A:real;                         { Аргументы }
    n:integer;                        { Счетчик }
    Add:real;                         { Слагаемое }
    Sum:real;                         { Сумма }
BEGIN
  WriteLn;                            { Пропуск строки }
  Write('X=');                        { Вывод подсказки ввода X }
  ReadLn(X);                          { Ввод X }
  Write('A=');                        { Вывод подсказки ввода A }
  ReadLn(A);                          { Ввод A }
  X:=X-1;                             { Приведение значения аргумента X }
  A:=1/A;                             { Приведение значения аргумента A }
  Sum:=1;                             { Начальное опрделение суммы }
  Add:=1;                             { Начальное опрделение слагаемого }
  n:=0;                               { Начальное опрделение счетчика }
  repeat                              { Цикл набора суммы }
    Add:=Add*(A-n);                     { Переопрделение слагаемого }
    n:=n+1;                             { Переопрделение счетчика }
    Add:=Add*X/n;                       { Переопрделение слагаемого }
    Sum:=Sum+Add                        { Переопрделение суммы }
  until Abs(Add)<Eps;
  WriteLn('=',Sum)                    { Вывод результата }
END.