20 lines
141 B
Text
20 lines
141 B
Text
for i = 2 to 100
|
|
|
|
let f = 1
|
|
|
|
for j = 2 to i - 1
|
|
|
|
let f = (f * j) % i
|
|
wait
|
|
|
|
next j
|
|
|
|
if f = i - 1 then
|
|
|
|
print i
|
|
|
|
endif
|
|
|
|
next i
|
|
|
|
end
|