uses crt;
var x,t,s:real;
k:integer;
begin
clrscr;
write('x=');
readln(x);
s:=x;
t:=x;
for k:=1 to 6 do
begin
t:=-t*x*x/(2*k*(2*k+1));
s:=s+t;
end;
write('S=',s:0:4);
readln
end.
uses crt;
var x,t,s:real;
k:integer;
begin
clrscr;
write('x=');
readln(x);
s:=x;
t:=x;
for k:=1 to 6 do
begin
t:=-t*x*x/(2*k*(2*k+1));
s:=s+t;
end;
write('S=',s:0:4);
readln
end.