Program ZnachCos;
Var
n,k:Integer;
x,a,b,e,s,p,Eps:real;
Begin {ZnachCos}
Write('vvedite zna4enie X ');
Read(x);
Write('vvedite zna4enie Eps ');
Read(Eps);
Writeln('X= ',x);
writeln('Eps= ',Eps);
n:=1;
a:=1;
s:=1;
While Abs(a)>Eps do
  Begin
  a:=(1-4*x*x/(2*n-1)*(2*n-1)*pi*pi);
  s:=s+a;
  Inc(n)
  End;
Writeln('COS(x) raven ',s,' pri razlojenii v stepennoi r9d.');
Writeln('4islo iteracii ravno ',n);
p:=1;
k:=0;
b:=(1-4*x*x/pi*pi)*(1-4*x*x/(9*pi*pi));
  while abs(e-p)>eps do
  begin
   e:=p;
   b:=(1-4*x*x/pi*pi)*(1-4*x*x/9*pi*pi);
   p:=p*b;
   inc(k)
  end;
Writeln('COS(x) raven ',p,' pri razlojenii v beskone4noe proizvedenie.');
Writeln('4islo iteracii ravno ',k)
End.