Можно, конечно, и так - но мне кажется несколько странным и излишним засовывание вычисления объемов шариков в тело функции. Я бы немножко подправил:
Код:
const
r1=5.2;
r2=4.0;
r3=4.8;
var
z:real;
function v(r:real):real;
begin
v:=(4/3)*(pi*(sqr(r)*r));
end;
begin
z:=(v(r1)+v(r2)+v(r3))/3;
writeln ('z= ',z:7:3);
readln
end.