Dividieren but ohne Zahlen nach dam Komma und ohne Runden ?!

[SirThornberry]

da nicht durch 0 teilbar ist muss einer der beiden Faktoren (welcher später der Quotient ist) immer >= 1 sein

Delphi-Quellcode:

Quotient := Random(MaxQuotient + 1);
Divisor  := Random(MaxDivisor) + 1;
Divident := Quotient * Divisor;