Второй номер через while

Question

Второй номер через while

---

Answer 1

Var n,i:integer; s:real;
begin
write('n = ');
readln(n);
i:=0; s:=0;
while i begin
 i:=i+1;
 s:=s+(i+1)/i;
 end;
writeln('s = ',s:6:4);
end.

Пример:
n = 5
s = 7.2833