10 LET N = 41
20 LET K = 3
30 LET M = 0
40 GOSUB 100
50 PRINT "N = " ; N; "  K = "; K; "  FINAL SURVIVOR  ="; S
60 END
100 LET S = M
110 FOR A = M+1  TO N
120   LET S = INT(A * ((S+K) / A - INT((S+K) / A)) + 0.5)
130 NEXT A
140 RETURN