OpenConsole()
PrintN("10 primeros términos de la sucesión de Sylvester:")

suma.d = 0
For i.i = 1 To 10
  If i = 1
    sylvester.d = 2
  Else
    sylvester.d = sylvester*sylvester-sylvester+1
  EndIf
  PrintN(Str(i) + ": " + StrD(sylvester))
  suma = suma + 1 / sylvester
Next i

Print(#CRLF$ + "Suma de sus recíprocos: " + StrD(suma))
Input()
CloseConsole()
End