Hur hittar du prime nr i gwbasic program?

Hur hittar du prime nr i gwbasic program?

10 ingång "Ange ett nej."; n
20 för i = 1 till n
30 om n mod jag = 0 då c = c + 1
40 nästa jag
50 om c = 2 then print "primtal" annat skriva ut "inte ett primtal"
60 slutet