DIM m AS INTEGER
DIM k AS LONG
m = 0
DO
INPUT k
k = k + 42000
IF k MOD 7 = 0 AND k MOD 2 = 0 AND k - 42000 <> 0 THEN m = m + 1
LOOP WHILE k - 42000 <> 0
PRINT m

С радостью все объясню в личке, если что не понятно