CLS
INPUT "Ведите координаты точки x1";x1
INPUT "Ведите координаты точки y1";y1
INPUT "Ведите координаты точки z1";z1
INPUT "Ведите координаты точки x2";x2
INPUT "Ведите координаты точки y2";y2
INPUT "Ведите координаты точки z2";z2
R = SQR((( x2 - x1 ) ^ 2) + (( y2 - y1 ) ^ 2) + (( z2 - z1) ^ 2))
V = ( 4 / 3 ) * 3.14 * R ^ 3
PRINT V
END