Написать программу, которая напечатает все четырехзначные числа, сумма цифр которых равна введенному числу — QBasic(Бейсик)

CLS
DO
    INPUT "vvedite n"; n
LOOP UNTIL n <= 36
FOR i = 1000 TO 9999
    b = i
    s = 0
    DO
        s = s + (b MOD 10)
        b = b \ 10
    LOOP UNTIL b = 0
    IF s = n THEN PRINT i;
NEXT