estePrim(x)
| intregi prim, d
| prim <- 1
| d <-2
| cat timp d<=x/2 executa
| | daca x%d=0 atunci
| | | prim <- 0
| | └■
| | d <- d+1
| └■
|
| returneaza prim
|
└■
main
| intregi n, i, s, v[100]
| s <- 0
| citeste n
| pentru i <- 0, n, +1 executa
| | citeste v[i]
| └■
|
| pentru i <-0, n, +1 executa
| | daca estePrim(v[i]) atunci
| | | s <- s + v[i];
| | └■
| └■
|
| afiseaza "Suma numerelor prime este:"
| afiseaza s
└■
