{
        Assignment 1, Program 3
        Name: "You're going to die"
        By: Ben Weir
        Modified: Sept. 11, 1996

        this program calculates how much of a chemical
        it takes to kill a person at a certain weight
        based on how much it takes to kill a mouse.
}
program kill_dieter (input, output);

var
   mouse_amt,           {the amount it takes to kill the mouse}
   mouse_weight,        {the weight of the mouse}
   your_weight,         {the user's target weight}
   num_sodas:           {number of sodas the user can safely drink}
   real;

const
   soda_pct = 0.001;    {the percentage of a soda
                         that is the dangerous chemical}

begin
   Write('How much does the mouse weigh? ');            {get inputs}
   readln(mouse_weight);
   Write('How much does it take to kill that mouse? ');
   readln(mouse_amt);
   Write('What is your target weight? ');
   readln(your_weight);

                        {calculate the number of sodas to kill someone}
   num_sodas :=((your_weight * mouse_amt) / (mouse_weight)) / soda_pct - 1;

   writeln;                    {display results}
   writeln('You can only drink ', num_sodas:1:0, ' sodas or you will DIE!!!');
   write('Press enter');
   readln;
end.