Exercico 4 da Prova

program CorrecaoNava4;
uses crt;
var
  i          : integer;
  s          : real;
  n          : integer;
begin
  writeln('Digite o Valor: ');
  readln(n);

  for i:= 1 to n do
      s   :=  s +  (i / ((i-1) + i));
  writeln(' O valor de s ', n, ' eh ', s:0:2);



  readkey;
end.