!Takoma Park M.S.
!Jr-5
!Contest 1
!Angel Fan
DO
   INPUT prompt "Please input the length of contract in years:":year
   PRINT
   INPUT prompt "Please input a real number giving the value of the entire contract in millions:":money
   PRINT
   IF (money/year)>10 THEN
      LET moneycounter=moneycounter+1
   END IF
   LET total=total+((money*1000000)/year)
   IF counter=0 THEN
      LET sixteen=((money*1000000)/year)/16
      LET eighteen=((money*1000000)/year)/18
   END IF
   IF sixteen>=((money*1000000)/year)/16 THEN
      LET sixteen=((money*1000000)/year)/16
   END IF
   IF eighteen<=((money*1000000)/year)/18 THEN
      LET eighteen=((money*1000000)/year)/18
   END IF
   LET sixteentotal=sixteentotal+((money*1000000)/year)/16
   LET eighteentotal=eighteentotal+((money*1000000)/year)/18
   LET counter=counter+1
LOOP until counter=5
LET average=total/5
LET sixteenaverage=sixteentotal/5
LET eighteenaverage=eighteentotal/5
LET difference=sixteenaverage-eighteenaverage
PRINT "1. ";moneycounter
PRINT "2. ";ROUND(average)
PRINT "3. ";ROUND(sixteen)
PRINT "4. ";ROUND(eighteen)
PRINT "5. ";ROUND(difference)
END