C KILOMEERS PER 100 LITRES
C DATA INPUT
      WRITE(5,21)
      READ(5,20)MIL1
      WRITE(5,31)
      READ(5,22)MIL2
      WRITE(5,41)
      READ(5,40)PET
      WRITE (5,40) PET
      WRITE (5,22) MIL2
      WRITE (5,20) MIL1
      PERLT=((MIL2-MIL1)/PET)*100 
      WRITE(5,50)
      WRITE(5,51)PERLT
 21   FORMAT ('0INITIAL MILEAGE READING ')
 31   FORMAT ('0CLOSING MILEAGE READING ')
 41   FORMAT ('0PETROL USED ')
 20   FORMAT ('+',I5)
 22   FORMAT ('+',I5)
 40   FORMAT ('+',F5.2)
 50   FORMAT ('0MILEAGE PER 100 LITRES ')
 51   FORMAT ('0',F8.2)
      STOP
      END
      FUNCTION CALC(I,J,C)
      CALC=((J-I)/C)*100
      RETURN
      END
 