Logo - Zadatak Prost

to jeliprost :n
if :n = 1 [op "false]
make "p int :n/2
for [k 2 :p 1] [
	if (remainder :n :k) = 0 [op "false]
]
op "true
end

to prost :n
while [not jeliprost :n] [ make "n :n - 1 ]
op :n
end