Нахождение суммы ряда(цикл с условием) - PascalABC.NET

var x,e,t,f1,f2,s:real;
    i:integer;
begin
e:=0.0001;//точность
write('x=');
readln(x);
i:=0; //получим исходные значения при i=0
t:=-1//(-1)^(i+1)*x^(2i)
f1:=1;//1/i!
f2:=1;//1/(2i)!
s:=0;//сумма
while abs(t*(f1+f2))>e do//пока модуль очередного члена больше точности
 begin
  i:=i+1; //следующий
  t:=-t*x*x;//(-1)^(i+1)*x^(2i)
  f1:=f1/i;//1/i!
  f2:=f2/2/i/(2*i-1);//1/(2i)!
  s:=s+t*(f1+f2);//сумма
 end;
writeln('Сумма=',s:0:4);
write('Функция=',2-exp(-x*x)-cos(x):0:4);
end.