DIMENSION D(40),A(40),AT(40)
10	FORMAT ('INPUT',I4,'SETS OF DATA - DAT OF ADMINISTRATION,'
       C' FROM ARRIVAL DATE',/,'AND AMOUNT TO BE GIVEN ON THAT DAY')