PROGRAM Mileage (Input,Output);

CONST
   LPG = 3.8;    (* Liters in one gallon *)
   KPM = 1.609;  (* Kilometers in one mile *)

VAR
   Liters, Gallons, Kilometers, Miles : Real;

BEGIN
   Writeln('Enter liters consumed:');
   Readln(Liters);
   Writeln('Enter kilometers driven:');
   Readln(Kilometers);
   Gallons := Liters / LPG;
   Miles := Kilometers / KPM;
   Writeln('Mileage in MPG = ',Miles/Gallons:6:2);
END.