Ai giải giúp mk vs ak Mai mk phải nộp r😢😢😢

Uses crt;
Var i, n: integer;
      s:real;
Begin
Clrscr;
   Write('Nhap n = '); readln(n);
   s:=1;
   For i:=1 to n do s:=s+1/(2*i+1);
   Writeln('Tong S = ',s:8:2);
Readln
End.