составить алгоритм и программу для вычисления объема куба если площадь поверхности (S=2.157*10^2 мм кв.) Паскаль

program zz1;

var S1, V, S, a:real; / /задаем переменные не целого типа

begin

S:=2.157 * sqr (10); / /вычисляем площадь всей поверхности куба

S1:=S / 6; / / в связи с тем, что куб состоит из шести квадратов, находим площадь одного такого квадрата

a:=sqrt (S1); / / площадь квадрата, как известно, это а*а, следовательно, чтобы найти длину ребра куба, нужно извлечь корень из площади этого квадрата

V:=a * a * a; / /вычисляем объем куба по формуле

write ('объем куба = ', V:5:2); / / выводим ответ в формате пять знаков для числа и два знака после точки

end.