1:
2:
3:
4:

function MyRandom(min, max: Integer): Integer;
begin
  result := min + random(max-min);
end;                    

1:
2:
3:
4:

case Random(2) of
  0: Result:= RandomRange(5,10);
  1: Result:= RandomRange(20,30);
end;                    

1:
2:
3:

Result := RandomRange(1, 125);
if Result > 75 then
  Inc(Result, 25);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

type TRange = record
  Low, High: Integer;
end;

function RandomFromIntervals(R: Array of TRange): Integer;
{ Ranges to be passed, sorted by lower bound, in ascending order.
  Integers that are contained in several sets will still have the same probability.
  To avoid this, and put greater probabilities on them, outcomment lines 15-18.
  Both ranges can be signed integers. }
var
  i: Integer;
  Elements: Integer;
begin
  for i := 0 to Length(R) - 2 do begin  // skips one set
    if R[i].High >= R[i+1].Low then begin   // cut away conjunctions, for exactly 1x count of each integer number that is in either set
      if R[i].High] > R[i+1].High then R[i+1].High := R[i].High;
      R[i].High := R[i+1].Low - 1;
    end;
    Inc(Elements, R[i].High - R[i].Low + 1);  // Count the number of elements in all sets
  end;
  i := Length(R) - 1;  //last set
  Inc(Elements, R[i].High - R[i].Low + 1);  // Count elements here, too(this set is not done by loop)
  Elements := RandomRange(1, Elements);  //Choose n-th element at Rnd()
  i := -1;
  while Elements > 0 do begin
    Inc(i);
    Dec(Elements, R[i].High - R[i].Low + 1);  // Count down until we find the set the n-th number is coming from
  end;  // right set
  result := R[i].High + Elements;  //High + EL = High + (el - #R[i]) = Low + el
end;                    

1:
2:
3:

procedure irgendwas
randomize;
Zahl := random (75, 100..150)                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function RandomFromTwoIntervals(u1, o1, u2, o2): Integer;
var
  Elements: Integer;
begin
  if o1 >= u2 then begin  // I2 hat Schnittmenge mit I1
    if o1 > o2 then  // I2 ist Teilmenge von I1
      o2 := o1;  // obere Grenzen tauschen
    o1 := u2 - 1;  // I1 bei u2 abschneiden; I1, I2 enthalten noch die selben Zahlen, allerdings nur einmal
  end;
  Elements := (o1 - u1 + 1) + (o2 - u2 + 1);  // Anzahl de Elemente #I1 + #I2
  Elements := Random(Elements);  // n-tes Element auswählen
  if u1 + Elements <= o1 then  // Zahl liegt im ersten Intervall
    result := u1 + Elements
  else result := u2 + (Elements - (o1 - u1 + 1));  //im 2., also
end;

//Aufruf
Notenpunkte := RandomFromTwoIntervals(0, 3, 10, 15);  // I1: Lehrer googelt. I2: Lehrer googelt nicht.