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

Спасибо . Все супер. РЕКОМЕНДУЮ

procedure s_v(r:real; var s,v:real);begins:=4*Pi*r*r;v:=4/3*Pi*r*r*r;end;var a,b:real;begins_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.