Programozás Pascalban: Eljárások használata - 15. rész, Rekurzív alprogramok - 2