Program to calculate volume of a sphere given the radius.

	program volsphere;

	var
		vol, r: real;

	begin
	writeln('give the radius of the sphere')
	readln(r)
	vol := 4.0 * 3.14159265 * r * r * r / 3.0;
	writeln('the volume of the sphere is: ', vol)
	end.

Sample output

>give the radius of the sphere
<2.0
>the volume of the sphere is:  33.5103216