Решить задачу двумя способами: с использованием цикла с параметром и одного из двух других циклов.
Номер 9.

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