Составить метод решения задачи. Вычислить объем V и площадь поверхности S

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); //выводим ответ в формате 5 символов для всего числа и два знака после запятой
end.