var a,s:real;
i:integer;
begin
s:=1+1/2;
for i:=3 to 10 do begin
a:=(i-1)/i;
s:=s+a;
end;
writeln ('summa=',s);
end.