Часто твои сверстники спешат поскорее стать взрослыми, считают, как и герой одного из стихотворений В. Д. Берестова, что детство

Var
  i,n:integer;
  s:real;
begin
write('Введите n: ');
readln(n);
for i:=1 to n do
   s:=s+(i+1)/i;
writeln('S=',s);  
end.

var
  i,n:integer;
  s:real;
begin
write('Введите n: ');
readln(n);
i:=1;
repeat
  s:=s+(i+1)/i;
  i:=i+1;
  until i>n;
writeln('S=',s);  
end.