Пожалуйста:
Код:
const
r1=5.2;
r2=4;
r3=4.8;
var
r:real;
function v(r:real):real;
var
v1,v2,v3,v,z:real;
begin
v:=(4/3)*(pi*(sqr(r)*r));
writeln ('v=',v);
v1:=(4/3)*(pi*(sqr(r1)*r));
v2:=(4/3)*(pi*(sqr(r2)*r));
v3:=(4/3)*(pi*(sqr(r3)*r));
z:=(v1+v2+v3)/3;
writeln ('z=',z);
end;
begin
write('r=');
readln(r);
v(r);
readln
end.