volume of rest of the area= volume of cylinder - volume of sphere

r = 3 (slider from 2 to 6, step 1)
h = 7 (slider from 4 to 8, step 1)
A = Intersect(xAxis, yAxis)
c = Circle(A, r)
a, d, b = Cylinder(c, h)
B = Point(zAxis)
C = Point(zAxis)
e = Sphere(C, r)
volumea = Volume(a)
Texta: "Volume of " + (Name[a]) + " = " + volumea
PointxOyPlane_1 = PointIn(xOyPlane)
volumee = Volume(e)
Texte: "Volume of " + (Name[e]) + " = " + volumee
Pointe = PointIn(e)
f = Volume(a)
text1: "Volume of " + (Name[a]) + " = " + f
PointxOyPlane = PointIn(xOyPlane)
g = Volume(a)
text2: "Volume of " + (Name[a]) + " = " + g
volumedifference: volumea - volumee
text4: "volume of rest of the area = volume of cylinder-volume of sphere through input
volumedifference=" + volumea + "-" + volumee + "=" + volumedifference + ""
Pointd_1 = Point(d)
circumferenced = Circumference(d)
Textd: "Circumference of " + (Name[d]) + " = " + circumferenced
Pointd = PointIn(d)
i = Area(c)
Textc: "Area of " + (Name[c]) + " = " + i
Pointc = PointIn(c)