Составить функцию нахождения объема шара, зная его радиус. С помощью данной функции вычислить объем для N шаров.

Pascal ABC

Написать программу с помощью процедур и функций.

Function ob (r:real) : real;

var v:real;

begin

v:=4/3*r*r*r*pi;

ob:=v;

end;

var n, i:integer;

v1, r1:real;

begin

readln (n) ;

for i:=1 to n do

begin

write ('Введите радиус ', i,'-го шара: ') ;

readln (r1) ;

v1:=ob (r1) ;

writeln ('Объем шара: ', v1) ;

writeln;

end;

end.