basic - GW BASICの以下のプログラムのエラーは何ですか?

Question

与えられた数が素数であるかどうかを判断できるプログラムを作成していました。素数を入力しても、他の数を入力しても、常に「素数ではありません」と表示されます。そこに過失はありますか？

10    input "what is the number";a    
20    let b=1    
30    let b=b+1    
40    let k=a/b    
50    let p=fix(k)    
60    if p=k then goto 100    
70    if b<a then goto 30    
80    print "it is a prime number"    
90    goto 110    
100    print "it is not a prime number"    
110    end    
run