Программа

{ Тейлор.
  Набор суммы по
  тейлоровскому разложению }
CONST Eps=0.0001;                     { Точность вычислений }
VAR Arg1,Arg2:real;                   { Аргументы }
    n:integer;                        { Счетчик }
    PowerArg1:real;                   { Степень Arg1 }
    nFactorial:real;                  { Факториал }
    Add:real;                         { Слагаемое }
    Sum:real;                         { Сумма }
BEGIN
  WriteLn;                            { Пропуск строки }
  Write('Arg1=');                     { Вывод подсказки ввода Arg1 }
  ReadLn(Arg1);                       { Ввод Arg1 }
  Write('Arg2=');                     { Вывод подсказки ввода Arg2 }
  ReadLn(Arg2);                       { Ввод Arg2 }
  Sum:=1;                             { Начальное опрделение суммы }
  nFactorial:=1;                      { Начальное опрделение факториала }
  n:=0;                               { Начальное опрделение счетчика }
  PowerArg1:=1;                       { Начальное опрделение степени Arg1 }
  repeat
    n:=n+1;                           { Переопрделение счетчика }

    Add:=
  until Abs(Add)<Eps
END.