program SteelVolume;
{ program computing volume of steel needed using sphere volume is
4/3 Pi times radius cubed.

R. Rosebrugh
September 12, 1995}

const Pi = 3.14159;

var   Radius  : Real;    {input - bb size}
      Lotsize : Integer; {input - number of bb's required}
      Volume  : Real;    {output - total volume}

begin
     WriteLn ('Type the radius (decimal number) and lot size (whole number)');
     ReadLn (Radius,Lotsize);
     {Compute, then report required volume}
     Volume := 4/3*3.14159*Radius*Radius*Radius*Lotsize;
     WriteLn;
     WriteLn ('The required steel volume is ', Volume:5:2);
     {Hold output on screen:}
     WriteLn;
     WriteLn
     ('Press return to continue');
     ReadLn;
end.