Составить программу,используя команды пред или постусловия,которая будет переводить числа из десятичной системы счисления в любую другую (от двоичной до десятеричной)- QBasic(Бейсик)

INPUT "vvedite chislo ", a
INPUT "vvedite systemu ", s
k = 1
DO WHILE a MOD s = 0
    a = a \ s
    k = k * 10
LOOP

DO
    b = b * 10 + a MOD s
    a = a \ s
LOOP UNTIL a = 0
PRINT b * k