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 └■