procedure InlineExecute();
var
i, count: integer;
delta, sumx, sumx2, noise, invc: double;
recent: array of double;
pi, pf: PDouble;
procedure update_noise; inline;
begin
sumx += delta-pi^;
sumx2 += sqr(delta)-sqr(pi^);
pi^ := delta;
noise := invc*abs(sumx2*count-sqr(sumx));
if pi < pf then
inc(pi)
else
pi := @recent[0];
end;
begin
count := 10000;
invc := 1/sqr(count);
SetLength(recent, count);
pi := @recent[0];
pf := @recent[Length(recent)-1];
for i := 0 to round(1E8) do
begin
delta := i;
update_noise;
{sumx += delta-pi^;
sumx2 += sqr(delta)-sqr(pi^);
pi^ := delta;
noise := invc*abs(sumx2*count-sqr(sumx))/sqr(count);
if pi < pf then
inc(pi)
else
pi := @recent[0];}
end;
end;