PRINT "10 primeros términos de la sucesión de sylvester:"
PRINT

LET suma = 0
FOR i = 1 to 10
    IF i = 1 then
       LET sylvester = 2
    ELSE
       LET sylvester = sylvester*sylvester-sylvester+1
    END IF
    PRINT i; ": "; sylvester
    LET suma = suma + 1 / sylvester
NEXT i

PRINT
PRINT "suma de sus recíprocos: "; suma
END