Составить алгоритм решения задачи. Вычислить объем V и площадь поверхности S сферы по введенному значению радиуса r: V=4/3*п*r^3 S=3/4*п*r^2

program zz1;

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

begin

write ('введите исходное значение радиуса сферы '); / /вводим с клавиатуры исходное значение r

read (r);

V: = 4/3 * pi * r * r * r; / / вычисляем объем сферы по заданной формуле

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

S: = 3/4 * pi * r * r; / / вычисляем площадь поверхности сферы по заданной формуле

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

end.