2 курс / Численные методы / Задание 3 / Beta / Program1schar

var y,n,x,z:real;
i,k,tos:integer;
begin
writeln('wwedi tochnost');
readln(tos);
for i:=1 to tos do
begin
x:=random;
y:=random;
z:=random;
if 1/((x*x+y*y+z*z)*(x*x+y*y+z*z)*(x*x+y*y+z*z))<=1 then k:=k+1
else k:=k+0
end;
n:=(4*3.14159265358979/3)*2*(k/tos);
writeln(n);
end.