Программа

CONST M=11;
VAR P,Q,R,p0,h:real;    { Исхоные данные }
    Ak:real;            { Член последовательности }
    p_Small,X:real;     { Промежуточные переменные }
    i,k:integer;        { Счетчики }
    Sum:real;           { Сумма }
    Power_X:real;       { Степень X }
    Power_p_Small:real; { Степень p_Small }
    Sqr_p_Small:real;   { Квадрат p_Small }
    Fact:real;          { (2*k-2)! }
BEGIN
  WriteLn;              { Пропуск строки }
  Write('Введите P ');  { Вывод приглашения ввести параметр }
  ReadLn(P);            { Ввод параметра }
  Write('Введите Q ');  { Вывод приглашения ввести параметр }
  ReadLn(Q);            { Ввод параметра }
  Write('Введите R ');  { Вывод приглашения ввести параметр }
  ReadLn(R);            { Ввод параметра }
  Write('Введите p0 '); { Вывод приглашения ввести параметр }
  ReadLn(p0);           { Ввод параметра }
  Write('Введите h ');  { Вывод приглашения ввести параметр }
  ReadLn(h);            { Ввод параметра }
  WriteLn;              { Пропуск строки }
  { Вычисление значения X: }
  if P+Q+R=0 then    if P<Q then    if P<R then    X:=P
                                           else    X:=R
                            else    if Q<R then    X:=Q
                                           else    X:=R
             else    X:=P+Q+R;
  { Вывод параметров: }
  WriteLn('X=',X:0:3,'   P=',P:0:3,'   Q=',Q:0:3,'   R=',R:0:3);
  WriteLn('p0=',p0:0:3,'   h=',h:0:3,'   M=',M:0);
  X:=X-1;    { Приведение X }
  for i:=1 to M do   { Цикл обработки последовательностей }
    Begin
      WriteLn;                    { Пропуск строки }
      WriteLn('i=',i);            { Вывод значения счетчика }
      Sum:=0;                     { Обнуление суммы }
      p_Small:=p0+(i-1)*h;        { Вычисление p_Small }
      Power_p_Small:=p_Small;     { Начальное определение степени p_Small }
      Sqr_p_Small:=Sqr(p_Small);  { Вычисление квадрата p_Small }
      Power_X:=1;                 { Начальное определение степени X }
      Fact:=1;                    { Начальное определение факториала }
      for k:=1 to 16 do  { Цикл перебора элементов последовательности Ak }
        begin
          Power_p_Small:=Power_p_Small*Sqr_p_Small; { Набор степени p_Small }
          Power_X:=Power_X*X;                       { Набор степени X }
          Ak:=Power_p_Small/Fact*Power_X;{ Вычисление члена последовательности }
          if k<10 then Write(' '); { Форматирование выводда }
          Write('  A',k:0,'=',Ak);{ Вывод значения элемента последовательности }
          if not Odd(k) then     { Если k четное, то - }
            begin
              Sum:=Sum+Ak; { набор суммы элементов с четными номерами }
              WriteLn      { вывод конца строки через два элемента }
            end;
          Fact:=Fact*(2*k)*(2*k-1);                 { Набор факториала }
        end;
      WriteLn;                     { Пропуск строки }
      WriteLn('Sum=',Sum);         { Вывод суммы }
      WriteLn;                     { Пропуск строки }
      WriteLn('Нажмите <Enter>');  { Вывод приглашения }
      ReadLn;                      { Остановка программы до нажатия <Enter> }
    End
END.