program BallVolume(input,output);
var
   r, V: real;
begin
   writeLn('Give the ball radius.');
   readLn(r);
   V := 4 / 3 * 3.14159 * r * r * r;
   writeln('The volume is ', V);
end.