Вданной символьной строке,состоящей из цифр,удвойте каждую кратную трем цифру. например,строка "653" преобразуется в строку "66533" исполните программу для строк: а)12457 б)56733 в)63936 нужно построить алгоритм и составить программу.на программе qbasic.

CLS
INPUT a$
L = LEN(a$)
i = 1
DO WHILE i < L + 1
   s$ = MID$(a$, i, 1)
   c = VAL(s$)
   IF c \ 3 = c / 3 THEN
      a$ = LEFT$(a$, i) + s$ + RIGHT$(a$, L - i)
      L = L + 1
      i = i + 1
   END IF
   i = i + 1
LOOP
PRINT a$