uses crt;
var s,f:real;
i,j:byte;
begin
clrscr;
s:=0;
for i:=1 to 11 do
begin
f:=1;
for j:=1 to 2*i-1 do
f:=f/j;
s:=s+f;
end;
write('Summa=',s:0:4);
readln
end.
uses crt;
var s,f:real;
i,j:byte;
begin
clrscr;
s:=0;
for i:=1 to 11 do
begin
f:=1;
for j:=1 to 2*i-1 do
f:=f/j;
s:=s+f;
end;
write('Summa=',s:0:4);
readln
end.