viết chương trình tính tổng s= 1/1*2 + 1/2*3 + 1/3*4 +…+1/n*(n+1) với n là số tự nhiên nhập từ bàn phím mn giúp mình với!

uses crt;
var i,n:longint; s:real;
begin
clrscr;
   write(‘n=’);readln(n);
   for i:=1 to n do s:=s+1/i*(i+1);
   writeln(‘s=’,s);
readln
end.