Программа

FUNCTION Fact(N:integer):real;  { Функция вычисления факториала }
  Begin
    { Определение значения функции по мат. определению факториала: }
    if N>1 then Fact:=N*Fact(N-1) else Fact:=1
  End;

CONST Eps=0.0001; { Точность вычислений }
VAR F,x:real; { Значение функции и аргумент }
    u:real; { Слагаемое ряда }
    i:integer; { Счетчик цикла }
BEGIN
  Write('Введите x '); { Вывод приглашения }
  ReadLn(x); { Ввод x }
  u:=1; { Начальное определение слагаемого }
  F:=u; { Начальное определение функции }
  i:=0; { Начальное определение счетчика }
  while Abs(u)>=Eps do { Цикл набора суммы ряда }
  begin
    i:=i+1; { Набор счетчика цикла }
    u:=Exp(2*i*Ln(x))/Fact(2*i); { Пересчет слагаемого }
    if Odd(i) then F:=F-u else F:=F+u; { Набор значения функции }
  end;
  WriteLn('  F(',x:5:2,')=',F,'  i=',i); { Вывод значения функции и счетчика }
  WriteLn('cos(',x:5:2,')=',cos(x));  { Вывод контрольного значения }
END.