Решение во вложении ниже
небольшие пометки:
1. писал в ABC.net паскале команда power(x,2) - возведение Х во 2 степень, если писать в других оболочках паскаля, возможно можно будет использовать запись x^2
2. Формула сферы (x-x0)²+(y-y0)²+(z-z0)² = R²
где x0, y0, z0 - координаты начала (т.к. у нас начало в центре получаются эти координаты 0 0 0) и получаем формулу сферы x²+y²+z²=R²
причем эта формула для поверхности сферы, по условию задачи нужно найти точки внутри сферы, поэтому ставим не =, а < (если же понадобятся еще точки лежащие на поверхности сферы, нужно из < сделать <=)
Аня - туристка, Боря - художник, Гриша - футболист, Дина - певица, Вася - танцор
<h3>// PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrReal(8);
a.Take(4).Aggregate(1.0, (p, q)-> p * q).Println
end.
<h2>Пример</h2><h3>3.12 -52.52 16 132.52 0 -6 12.707 0.0018</h3><h3>-347440.723968 </h3>