Программа

{ Вычислить сумму ряда (2x)^n/(2n)! с точностью E=1e-4 }
VAR
  x,xBegin,xEnd,Step:real; { Аргумент функции, интервал и шаг }
Function Sum(x:real):real; { Функция вычисления значения суммы }
Const
  E=1e-4;  { Точность вычисления }
Var
  s,Member:real; { Сумма и член ряда }
  n:integer;  { Номер члена ряда }
Begin
  s:=0; n:=1; Member:=x; { Начальная инициализация }
  while Abs(Member) >= E do
      { Цикл набора суммы, пока член ряда больше требуемой точности }
  begin
    s:=s+Member; { Набор суммы }
    Inc(n); { Приращение номера члена ряда }
    Member:=Member*2*x/((2*n-1)*2*n); { Пересчёт следующего члена ряда }
  end;
  Sum:=s; { Определение значения функции перед выходом }
End;

BEGIN
  Write('Введите начальное значение X '); ReadLn(xBegin);
  Write('Введите конечное значение X '); ReadLn(xEnd);
  Write('Введите шаг '); ReadLn(Step);
  x:=xBegin; { Начальная инициализация аргумента }
  WriteLn('╔═════╦══════════════════╗');
  WriteLn('║  x  ║       Сумма      ║');
  WriteLn('╠═════╬══════════════════╣');
  while x<=xEnd do { Цикл табуляции функции }
  Begin
    WriteLn('║',x:5:2,'║',Sum(x),' ║');
      { Вычисление и печать аргумента и значения функции }
    x:=x+Step; { Приращение аргумента }
  End;
  WriteLn('╚═════╩══════════════════╝');
END.