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