Задачи на программирование нужно в QBasic

Как-то так: 1. CLS kpm = 60 n = 0 WHILE kpm <= 300 n = n + 4 PRINT n, "day. speed:", kpm kpm = kpm + (kpm / 10) WEND PRINT n + 1, "day. speed:", kpm END 2. CLS INPUT "Enter N: ", n$ k = 0 dig$ = "5" d = LEN(n$) FOR i = 1 TO d a$ = MID$(n$, i, 1) IF a$ = dig$ THEN k = k + 1 NEXT i PRINT "Digit", dig$, "typed", k, "times in", n$