2 курс / Численные методы / Задание 3 / Program-moment-var2

var i:longint;
h,v,s,r,x:real;
n:integer;
function func(l,r:real):real;
begin
func:=(1-r/l)*2*3.14159265358979*r*r*r;
end;
begin
writeln('Введи расстояние от центра тела до границы ');
readln(x);
writeln('Введи количество шагов в цикле (точность) ');
readln(n);
for i:=1 to n do
begin
randomize;
r:=random;
h:=x*r;
s:=s+func(x,h);
end;
v:=x*s/n;
writeln('Момент инерции тела равен ', v:0:2);
end.