Помогите пожалуйста! Программирование циклических алгоритмов. Задание 6

var n,i:integer; s:real;beginwrite('n = '); readln(n);s:=0;for i:=1 to n do s:=s+(i+1)/i;writeln('s = ',s);end.Пример:n = 5s = 7.28333333333333