DIM N, S AS INTEGER N = 0 S = 0 WHILE N <= 7 S = S +2* (N+1) N = N + 1 WEND PRINT S
DIM i,k,s AS INTEGER s = 1 k = 0 FOR i = 0 TO 5 s = s*i k = s-1 WEND PRINT k