Uite aici programul in pascal:
read(nr);
ok := true;
for i := 2 to nr-2 do
if nr mod i = 0 then
ok := false;
if ok = true then
write("Numarul ", nr, " este prim")
else
write("Numarul ", nr, " NU este prim");
si pseudocodul:
citeste nr
ok = true
pentru i = 2 pana la nr-1 executa
daca nr mod i = 0 atunci
ok = false
daca ok = true atunci
scrie "este numar prim"