Программа

VAR Eps:real;  { Точность }
    x,a:real;  { Аргументы }
    Mult:real; { Произведение a*Ln(X) }
    Add:real;  { Слагаемое }
    Sum:real;  { Сумма ряда }
    n:integer; { Итерационный счетчик }
BEGIN
  WriteLn; { Пропуск строки }
  Write('Введите "X" '); { Вывод приглашения ввести X }
  ReadLn(X); { Ввод X }
  Write('Введите "a" '); { Вывод приглашения ввести a }
  ReadLn(a); { Ввод a }
  Write('Введите точность вычислений '); { Вывод приглашения ввести точность }
  ReadLn(Eps); { Ввод Eps }
  Sum:=0; { Начальное определение суммы }
  Add:=1; { Начальное определение слагаемого }
  n:=0;  { Начальное определение счетчика }
  Mult:=a*Ln(X); { Вычисление постоянного множителя }
  while Add>Eps do { Цикл набора суммы }
  Begin
    Inc(n); { Набор числа итераций }
    Sum:=Sum+Add; { Набор суммы }
    Add:=Add*Mult/n { Пересчет слагаемого }
  End;
  WriteLn('X^a=',Sum) { Вывод результата }
END.