uses crt;
var z,x,p:double;
i:integer;
begin
clrscr;
write('x=');readln(x);
z:=1;p:=sqr(x)/2;
for i:=2 to 11 do
begin
z:=z+p;
p:=p*sqr(x)/(2*i*(2*i-1));
end;
write('z=',z:0:8);
readln
end.
uses crt;
var z,x,p:double;
i:integer;
begin
clrscr;
write('x=');readln(x);
z:=1;p:=sqr(x)/2;
for i:=2 to 11 do
begin
z:=z+p;
p:=p*sqr(x)/(2*i*(2*i-1));
end;
write('z=',z:0:8);
readln
end.