Chi per favore mi riesce a fare l'algoritmo in Pascal di questo testo:

Scrivi un'algoritmo che dato in input un numero intero positivo A, calcoli quanti termini della successione definita da:

X0 = A + 1

Xi = (X(i-1)) +1 per I = 1,2,3......


Occorre sommare (partendo dal primo) per superare strettamente un limite dato in input!

Grazie x l'aiuto!!!!!