составить метод и программу для вычисления объема куба если площадь поверхности

program zz1;
var S1, V, S, a:real; //задаем переменные не целого типа
begin
S:=2.157 * sqr(10); //вычисляем площадь всей поверхности куба
S1:=S / 6; // в связи с тем, что куб состоит из 6 квадратов, находим площадь 1-го такового квадрата
a:=sqrt(S1); // площадь квадрата, как известно, это а*а, как следует, чтоб отыскать длину ребра куба, необходимо извлечь корень из площади этого квадрата
V:=a * a * a; //вычисляем объем куба по формуле
write(объем куба = , V:5:2); // выводим ответ в формате пять знаков для числа и два знака после точки
end.