Программа

USES CRT;          { Подключение модуля содержащего процедуру очистки экрана }
CONST x=0.67;            { Аргумент }
      n=5;               { Число членов суммы }
VAR z:real;              { Значение функции }
    i,j:integer;         { Счетчики }
    PowerX:real;         { Переменная для набора степени x }
    Factorial:real;      { Переменная для набора факториала }
    Minus1:integer;      { Множитель (-1)^(i-1) }
BEGIN
  ClrScr;                { Очистка экрана }
  z:=0;                  { Начальное определение значения функции }
  PowerX:=1/x;           { Начальное определение значения степени x }
  Minus1:=-1;            { Начальное определение значения множителя }
  for i:=1 to n do       { Цикл набора суммы }
    Begin
      PowerX:=PowerX*x*x;        { Переопределение значения степени x }
      Factorial:=1;              { Начальное определение значения факториала }
      for j:=1 to 2*i-1 do Factorial:=Factorial*j;    { Вычисление (2*i-1)! }
      Minus1:=-1*Minus1;            { Переопределение значения множителя }
      z:=z+Minus1*PowerX/(Factorial*(2*i-1));
                                    { Набор суммы }
    End;
  z:=5*x+z;                         { Переопределение значения функции }
  WriteLn('z=',z:0:3);              { Вывод значения функции }
  ReadLn                            { Остановка программы до нажатия <Enter> }
END.