Вычислить выражения, используя для организации цикла операторы FOR … NEXT - QBasic (27562)

DIM n AS LONG
DIM m AS LONG
DIM k AS LONG
CLS
INPUT "N = "; n
 
s$ = LTRIM$(STR$(n))
s1$ = LEFT$(s$, 1)
s2$ = RIGHT$(s$, LEN(s$) - 1)
 
k = VAL(s1$)
k = k + 1
s3$ = LTRIM$(STR$(k))
ss$ = s3$ + s2$
m = VAL(ss$)
m = m + 1
PRINT m
END