Запомнить меня на этом копьютере
Пример программы для функций Random и Randomize.
{Random.PAS} { Пример программы для функций Random и Randomize } Uses Crt; Begin Randomize; Repeat { Выводим текст случайными цветами } TextAttr:=Random(256); Write('!'); Until KeyPressed; End.
Скачать random.pas