13 lines
256 B
Text
13 lines
256 B
Text
100 cls
|
|
110 print "Primes below 100"+chr$(10)
|
|
120 for i = 2 to 100
|
|
130 wilsonprime(i)
|
|
140 next i
|
|
150 end
|
|
160 function wilsonprime(n)
|
|
170 fct = 1
|
|
180 for i = 2 to n-1
|
|
190 fct = (fct*i) mod n
|
|
200 next i
|
|
210 if fct = n-1 then print i;
|
|
220 end function
|