Programozás Pascalban: Általános Algoritmus: Megszámlálás ismeretlen elemszám esetén