Вычислить площади поверхностей и объемы трех воздушных шаров с известными радиусами , использовав процедуру для вычисления площади и объема. Радиусы шаров соответственно равны 5,10,15 м .

Procedure s_v(r:real; var s,v:real);
begin
s:=4*Pi*r*r;
v:=4/3*Pi*r*r*r;
end;
var a,b:real;
begin
s_v(5,a,b);
writeln(r=5, S=,a:5:2, V=,b:5:2);
s_v(10,a,b);
writeln(r=10, S=,a:5:2, V=,b:5:2);
s_v(15,a,b);
writeln(r=15, S=,a:5:2, V=,b:5:2);
end.