Verified answer

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.