{  Lethal Dose Programming Problem
   Input: lethal dose of sweetener for a lab mouse, weights of mouse
   and dieter, and concentration of sweetner in a soda.
   Output:  lethal dose of soda.

   Assumption (REQUIRED):
   Lethal dose is proportional to weight of subject (mouse or friend).}

Program mouse (input,output);

Const

  partsweet = 0.001; {fraction of soda that is sweetener}
  canWeight = 350;  {number of grams of soda per soda can}
Var

  mowgt : real;
  pewgt : real;
  mouseFatalAmt : real;
  personFatalAmt : real;
  numCokes : real;
Begin

  Writeln('Enter the weight of the mouse in grams.');
  Readln(mowgt);
  Writeln('Enter the number of grams of sweetener necessary to a mouse.');
  Readln(mouseFatalAmt);
  Writeln('Enter the weight of the person in grams.');
  Readln(pewgt);
  personFatalAmt:= (pewgt/mowgt) * mouseFatalamt;
  numCokes := (personFatalAmt/partsweet)/canWeight;

  Writeln('Do not drink more than ', personFatalAmt:1:2, 
	' grams of sweetener!');
  Writeln('Do not drink more than ', numCokes:1:2, ' cans of soda!');

end.