/***********************************************************/
/* Die Nachfahren des Adamo Rekursi: ein Familienproblem.  */
/* by Dirk Owerfeldt '89                                   */
/***********************************************************/

/*----------*/
/* Includes */
/*----------*/

#include <exec/types.h>
#include <stdio.h>

#define REG register
#define BOOLEAN BOOL
#define CHAR char

#define CLS   fputchar ( 0xc )
#define TASTE printf("-- Return --"); gets( name )

LONG Adamo_alter, Anzahl;

VOID recursi(alter)
WORD alter;
{
   if(alter<= Adamo_alter)
   {
      Anzahl++;
      recursi(alter+20);
      recursi(alter+23);
   }
}

VOID main()
{
        CLS;

        Anzahl =0;

        printf("\n** Rekursi: Ein Familienproblem **\n\n\n");
        printf("Welches Alter soll der Urvater Adamo haben: ");
        
        scanf("%ld",&Adamo_alter);

        recursi(0);

        printf("\n\nDie Zahl der Männer ist: %ld\n",Anzahl);
}