summaryrefslogtreecommitdiff
path: root/web/funnelAC/contrib/rand_int.p
blob: 0d836e30b1aa0acea8e4ed93b7286b9ff0bf06c0 (plain)
1
2
3
4
function rand_int(i,j: integer): integer;
begin
  rand_int := trunc(random(1)*(j-i+2)+i-1);
end;