variable:n[]=0;
temp:=sum(vol,4);
if todaybar=4 then n:=temp;
b1:=0;
if UBOUND(n)>5 then
begin
b1:=n[UBOUND(n)]/n[UBOUND(n)-1];
end
ss:b1;
b2:=0;
if UBOUND(n)>5 then
begin
b2:=if(UBOUND(n)>5,n[UBOUND(n)]/((n[UBOUND(n)-1]+n[UBOUND(n)-2]+n[UBOUND(n)-3]+n[UBOUND(n)-4]+n[UBOUND(n)-5])/5),0);
end
ss2:b2;