Составить блок-схему по и, , если сможете, с объяснением. заранее большое .с:

Var y: real;
    i, n: integer;
begin
     readln(n);
     for i := 0 to n do
         y := y + 1 / (1 + y);
     writeln(y);
end.