PROGRAM Mileage (Input,Output);
CONST
   Fill1 = 10.4;
   Fill2 = 6.8;
   Fill3 = 7.0;
   Fill4 = 9.5;
   StartingOdometer = 10195;
   EndingOdometer = 10868;
VAR
   TotalMiles : Integer;
   TotalGallons, AverageMileage : Real;
BEGIN
   TotalMiles := EndingOdometer - StartingOdometer;
   TotalGallons := Fill1 + Fill2 + Fill3 + Fill4;
   AverageMileage := TotalMiles / TotalGallons;
   Writeln('Miles driven was ',TotalMiles);
   Writeln('Gallons consumed was ',TotalGallons:5:1);
   Writeln('Gas mileage was ',Round(AverageMileage));
   Readln;
END.