n, s, d, nrd intregi
s <- 0
nrd <- 0
citeste n
cat timp n!=0 executa
{
s <- s + n%10
n <- n / 10
}
pentru d <- 2. s/2 executa
daca s%d=0 atunci nrd <- nrd + 1
daca nrd=0 scrie "Suma cifrelor lui n este un numar prim"
altfel scrie "Suma cifrelor lui n nu este un numar prim"