Составить функцию нахождения объема шара, зная его радиус. С помощью данной функции вычислить объем для 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.