To Find The Sum From 1 to N

CLS
INPUT "Enter the last number of the series you want to add"; n
FOR i = 1 TO n
    s = s + i
NEXT i
PRINT "The sum of the series from 1 to"; n; "is"; s
END