Pascal/Delphi Adição de termos em sequência Pascal

[Pedroso90]

Boa noite pessoal, tranquilo? Então, eu estava fazendo alguns exercícios de pascal e me deparei com uma dúvida que já está martelando minha cabeça faz um bom tempo, estou com dificuldade para somar todos os termos de uma determinada sequência como pede o exercício abaixo, eu fiz o modelo todo do programa praticamente, só falta acertar esse detalhe, se alguém puder me dar uma mão, creio que deve ser uma coisa fácil, mas realmente não estou conseguindo pensar em nada.

 

Exercicio: 

 

Faça um procedimento (procedure) que receba como parâmetro um valor inteiro e
positivo N, indicando a quantidade de parcelas de uma soma S, calculada pela
fórmula:
S = 2/4 + 5/5 + 10/6 + 17/7 + 26/8 + ... + (n2 + 1) / (n + 3)

Program EX5;

 var

  s,s2,aux1:real;
  i,n:integer;
 
  

  
procedure CalcSoma;

  begin
  
  s:=0;
	aux1:=1;
	//while 

   for i:=1 to n do
    
    begin 
    
    s:= ((n*n)+1)/(n+3);

  
  
  end;
  
  end;
   
  
Begin

  
 write('Digite a quantidade de parcelas da soma: ');
  readln(n);
   

CalcSoma;
   
writeln;
writeln;
write('O resultado da soma é: ',s:0:2);
readkey;
  
End.

 

[Simon Viegas]

@Pedroso90, sobre:

 

10 horas atrás, Pedroso90 disse:

for i:=1 to n do
  begin 
  s := ((n*n)+1)/(n+3);
  end;

 

1. Para cada loop você está efetuando exatamente a mesma conta, se n não muda o valor durante o laço, o resultado sempre será o mesmo;

2. Provavelmente precisaria ir acumulando, ou seja, seria algo como:

s := s + <alguma fórmula>

Será que não deveria usar i no lugar do n?