Дано натуральное n. Вычислить
2/1+3/2+4/3+...+n+1/n. ПОМОГИТЕ!!!

program summa;

var

s:real;

i, n : integer;

begin

writeln('Введите число n= ');

read(n);

s:=0;

for i:=1 to n do  

 s:=s+(i+1)/i;

writeln('Сумма: ',s:4:2);

end.