Čísla deliteľné svojimi ciframi

Do listboxu vypíšte všetky čísla menšie ako zadané n, ktoré sú deliteľné všetkými svojimi ciframi.

Program prebieha v závislosti od zadaného čísla. Vojdením do cyklu while sa zvyšuje počítadlo poccif a postupne po jednej cifre kontroluje, či je ňou deliteľné celé toto číslo. Ak áno, zvýši sa počítadlo poddel.
Na koniec porovná tieto dve počítadlá, a keď sa rovnajú, číslo sa vypíše do listboxu.