program m;uses crt;var k,s:real; i:integer;beginclrscr;for i:=1 to 10 dobegink:=i/(i+1);s:=s+k;end;writeln(s:2:2);readkey;end.
program m;
uses crt;
var
k,s:real;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
k:=i/(i+1);
s:=s+k;
end;
writeln(s:2:2);
readkey;
end.