Ich würde es so lösen:
Delphi-Quellcode:
function new_random(ugrenze, ogrenze: integer): integer;
var i: integer;
begin
Result := ugrenze;
for i:=ugrenze to ogrenze do
Inc(Result, Random(2));
end;
Da die Wahrscheinlichkeit zwischen 1 und 0 50% ist, dürfte das den gewünschten Effekt erzielen.
// Edit: Stimmt, muss ja Random(2) heißen
Flare