Найти сумму четных чисел на промежутке от А до В — QBasic(Бейсик)

INPUT a
INPUT b
FOR i = a TO b
    IF i MOD 2 = 0 THEN s = s + i
NEXT
PRINT s