Presupunand ca enuntul e: Se citeste o valoare naturala. Se citesc n numere. Sa se afiseze numerele care sunt divizibile cu suma cifrelor lor.
intreg n
citeste n
|pentru i <- 1, n, 1 executa
| citeste x
| S <- 0
| y <- x
| |cat timp y != 0 executa
| | S <- S + y mod 10
| |~~
| daca x mod S = 0 atunci scrie x
|~~