PROGRAM PostOffice (Input,Output);
CONST
   FirstOz = 0.29;
   EachOtherOz = 0.23;
   Weight = 0.8;
   SmallNumber = 0.0001;
VAR
   Cost : Real;
BEGIN
   Cost := FirstOz + (Trunc(Weight - SmallNumber) * EachOtherOz);
   Writeln('Cost of the letter weighing ',Weight:5:2,' ounces is $',
           Cost:5:2);
   Readln;
END.