Есть код
program R;
var
X: Byte;
radomize: integer;
begin
for x := 1 to 4 do
WriteLn(Random(10));
end.
Но, при "проигрывании" ВСЕГДА выдает ОДНО и тоже. То есть, нет выпадания случайных чисел.
0
0
8
2
(0082 при каждом запуске)
У меня виндовс XP. Что можно сделать?
P.S. повторы выпадания чисел происходят всегда, с любым указанным количеством номеров. И всегда номера начинаются на НОЛЬ.