A: (0, 0, 0)
B: (0, 0, 1)
a, c, b = Cone(A, B, 1)
h = 0.25 (slider from 0 to 1, step 0.01)
r = 0.25 (slider from 0 to 1, step 0.01)
Pallon_ kp: (0, 0, h)
pallo = Sphere(Pallon_ kp, r)
tilavuusd = Volume(pallo)
Tekstid: "Kappaleen " + (Name[pallo]) + " tilavuus = " + tilavuusd
Pisted = PointIn(pallo)