Mail

В этот день много лет назад...
25 апреля. В 1956 году (68 лет назад) - В СССР отменяется судебная ответственность за прогул, введенная в 1940.

Turbo Pascal Documentation

Процедура Randomize

     Функция: Инициализирует встроенный генератор  случайных
чисел случайным значением.
     Описание: Randomize
     Примечания: Случайное значение получается от системного
таймера.

           Замечание: Число, получаемое в результате  работы
      генератора  случайных  чисел,  хранится в предописаной
      переменной с именем RandSeed. Путем присваивания  этой
      переменной  конкретного значения можно получать каждый
      раз заданную последовательность случайных  чисел.  Это
      особено полезно в прикладных задачах, где используется
      кодирование данных.
           Прочее: См. также процедуру Random.