Найти минимальное основание системы счисления - QBasic

Формулировка задачи:

Ребята, помогите, пожалуйста. Дано десятичное число K. Найти минимальное основание P системы счисления, в которой исходное число оканчивается (будет младшей) цифрой M. (Например, К=179, M=7, P=43). Прочитал несколько самоучителей, выучил функции всех операторов, искал подобные задачи про системы счисления, но без толку. Мои попытки могут вызвать смех, но я первый раз встретился с этим языком. Буду рад любой помощи.

CLS
PRINT "zadacha"
FOR i=1 TO n
Poisk=k/p
next i
If poisk>=m then
print k
and if
Print "p=";p
Print "poisk";poisk
end

Решение задачи: «Найти минимальное основание системы счисления»

textual
                            Листинг программы 
                        

                             CLS
 DEFINT A-Z
 INPUT "Vvedite chislo     : ", K
 INPUT "Vvedite okonchаnye : ", M
  P = 1   'Начнём с двоичной
5 P = P + 1: IF K MOD P <> M GOTO 5
  PRINT "P ="; P
                        